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CalibJValueJTable.xls 
Enter following •ViscCalib" Values to: 



Viscosity 






Subtract Viscosity 


Add Viscosity 


Correction 






Correction Number 


Correction Number 


1 


2.56 


3 


3 


2 


2 


5.12 


5 


5 


6 


3 


7.68 


8 


7 


8 


4 


10.24 


10 


11 


10 


5 


12.8 


A O 

13 


13 


12 


6 


15.36 


15 


15 


16 


7 


17.92 


A O 

18 


17 


18 


8 


20.48 


20 


21 


20 


9 


23.04 


23 


23 


24 


10 


25.6 


26 


25 


26 


11 


28.16 


28 


29 


28 


12 


30.72 


31 


31 


30 


13 


33.28 


33 


33 


34 


14 


35.84 


36 


35 


36 


15 


38.4 


38 


39 


38 


16 


40.96 


41 


41 


40 


17 


43.52 


44 


43 


44 


18 


46.08 


46 


47 


46 


19 


48.64 


49 


49 




20 


51.2 


51 


51 


52| 


21 


53.76 


54 


53 


54 


22 


56.32 


56 


57 


56 


23 


58.88 


59 


59 


58 


24 


61.44 


61 


61 


• % 62 


25 


64 


64 


63 


: ". \ : 64 


26 


66.56 


67 




66 


27 


69.12 


69 


69 3 


70 


28 


71.68 


72 


~9A 

h 71 


72 


29 


74.24 


74 


: A- 


74 


30 


76.8 


77 


■0 "% 77 


76 


31 


79.36 


■-79 


% 79 


80 


32 


81.92 


82 


M 81 


82 


33 


84.48 


84 


£3 85 


84 


34 


87.04 


87 


87 


88 


35 r \ 


89.6 


90 


89 


90 


„,c 36 


92.16 


92 


93 


92 


37 


94.72 


95 


95 


94 


38;: 


97.28 


97 


97 


98 


39 


99.84 


100 


99 


100 


40 


102.4 


102 


103 


102 


41 


104.96 


105 


105 


104 


42 


107.52 


108 


107 


108 


43 


110.08 


110 


111 


110 


44 


112.64 


113 


113 


112 


45 


115.2 


115 


115 


116 


46 


117.76 


118 


117 


118 


47 


120.32 


120 


121 


120 


48 


122.88 


123 


123 


122 


49 


125.44 


125 


125 


126 


50 


128 


128 


127 


128 


51 


130.56 


131 


131 


130 



Use odd numbers to subtract the 
number in column one from the 
current reading. 

Use even numbers to add the 
number in column one to the 
current reading. 



Page 1 



Appendix A 

Docket 8 1 2 1 - 1 5 1 32-CIP-CO 



5 S S 

Q iH tI 

<5 se as 




ft 
a 

■H 
Q 


6 a> <u 

•H H H. 

"II 


LMenu 


O 

a 

E -H 
m > 

tO rH 


333 


6 O 
a 


. -H 

a o 
a 




I 



to 
tn 
o 




•H h h C Vl Vj 

C U U M iJ iJ 

M c c u c c 

XJ H H <D MM 

U H M E OH 

O ft U -H Of S 

ft t/) 1/1 h H W 




CO Q P -H «H -H -H 



oO H 
J* i' *J *J _ *w 

c *a> e •« 
o goo 
eg u o © a> 
CD u o p> pi 

tfl CO CD VK £ 

2 

!». Si? • 



U 6 



3 to C 
C D)H 
*» C 3 

•H C 



a «« «5 O 



a E-» 
(0 a) 

IS 

i 



pi o 



Appendix A 

Docket 8121-15132-CLP-O 




o 



a >. 

-- © 



lir £ £ tf ^ 

ti) D P 9 O 



a q n 

(0 H (A 

S £ £ 5 



« * p 

xj u 

CT» AJ ~ 



w w to J 

* X MO 
Q Q D CO 



8 "H C U 



■h a 
c n 
w o 

1 9* P 

t -H p 

1 Q H 




><« H 

a o o o 

3 w i w iV 

o « ««o 

CO D D D W 



QUO s £v0.y© M . M O 

co « co h co *« ij -iVi e-» 

J C E O J i» X © 

•J 5 J J J {?) u O 

~ - O O O ;a> «h _e ; *J 



- * x o o „o ft A <u > > 

D D O CO CO. CO 5. |? -h CO CO CO | 



« c u 

a m o 

o a « 

e to m u 

Q >H<H 3 

(0 > D O 



a 

^ >. W «H 

' * 5. 



iH p C 



a x 



Q 

co d q o p q d 
■jcocococococoqq 

CO CO CO CO CO CO CO CO CO 



p CO CO. CO. so. w, W, w w w VJ wj 

Ig'g'g'g'g'g'g'g'g'g'g'i 




rlllS! 

i jj jj <u v h 
; c c u u id 

: O O «J <tj a> 

j CO CO CO CO CO CO CO CO 
! « « !ij « X « X X 



u U C h 




Appendix A 
Docket 812 1-15 132-CIP-CO 
Port/* of 7 A 



8* mQ 

-H *H U 



B U O U 
a 



CD 



•ri Uj 

M o o 
p* ft ft 

CO CD CO 
-r4 -r4 -H 
Q D O 



•O T3 

S38 

H W 

a> © < 

C C cn 

*H *H C 

«J J J 




O «M rH X U ^ 2 

J W (B (C 3 0» <M -H «M •Q 

6 e «j <o a -h e « «~> m Q 

££££0 £3 33 331 



8. J 



5s 5s 

•w S- Q) CD 

u S O u u w oi t! q 

8.8 6,6,6,33 8 S 



g g « i 

A at M 

H H H H 

< < CO < 




■ 85 



ft fetn 
6 2 © 
0) <D H . 

rH E-« DO CL, 

O U <M U sf> 23 
U CO «W CD C O ,5? 

j seise* JS£g 

e e u h h h e h — - v H k V, 

g 3 %>" 



id D 
0) J 
O 

O V 
E CO O 



J 



k4 



c 

•a m 

Pi <N 
to iJ 
U H 

0) u c 



Appendix A 

Docket 812M5132-C1P-CO 

Poop A 7£ 



8t\CauWPS\a«\PR0DiC\DocuiaeiitAtioa List iag»\m»in. pirn , 
I«INX Main. aba « * 



'24/1999 10:45:04 



Keypad. o 

ViicControl.o 

K&iaMeau2.o 



OilMenu.O 

OilVlscDisp.o 
OilTetEpDUp.o 
OilUfcOisp.o 
OilRHDirp.O 



TestFurge.o 
SetBateTirae.o 
» SDTKays.o 
SetOTXdmit.o 

> SOTLKeys.o 
SetOLife.o 

» SOLKeyo.o 

SetViscCalib.o 

> SVCKeys.o 
Alarm. o 

Timer Int. o 
SOTLRaad.o 



SVCRead.o 
Display. o 




RAM_RL>C - READJKRITB 0x0020 TO OxOOBFi 
RAMI RLC m R5AD_WRXTS»0X0100 TO 0x0177/ 
ROM RLC m READ ONLY 0x180 TO 0x2FFF> 



B:\CR0OTS\BW3\RR0D1C\D0CU *.i©n Li»tlng»\tn*in.] 

The reset vector* Cor ax. cne ahcos *jf 



• OS/24/1999 10t45:04 



/* derivatives are lnitialiaed below. 
/• Please, remove the unused anas.* 
/•VECTOR ADDRESS OxlPVS Entry*/ 
/•VECTOR ADDRESS OxlPTS Entry*/ 
/•VECTOR ADDRESS 0X7FFB Entry*/ 
/•VECTOR ADDRESS OxFFFB Entry*/ 



uttt Entry 



■f 



v 



.data* » INTO RAM_RLC> 
VarSed* » INTO RAM1_RLC; 
.text* » INTO RCMJOCj 
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S:\GROJPS\KTO\PRQOlC\Dcoimentation U.«ting»\M*in.a«m 



•14/1599 10: 17 i SO 



rNCLOTS •AllFilesBOTJ.inc* 



XDSF 



Entry 



XRSP GetDateTimn 

XRBF Dis plait. Keypad. Keypadlnit. XOMenu 

XRBF lOMenuInit, KainMenu, ADConvert , TinerOCXBa^ $ 

XRBF Timer, ViscControl xr^% ^ 

JOS? . RTCCReglnit. WriteData ^ 4l^^ 

XBSP Alarm. ClrDispBuf, OLrDisp, DispBufV OneSecDelay 

XRBF MotorSpeed. KotorSpeedMed ^, "ft * 

Vector Jump Table 7^*^ 



vectorTable /Vector tables starting address. 

_^ t «%" ; 

SPriatr j SPrr interrupt routine entry. 
SCXIntr /SCii interrupt routine entry. 
Timerlntr ,^|WL^ry Interrupt routine entry. 
iRQlntr '-^>ZRQ^Znterrupt routine entry. 

^Software interrupt routine entry. 
/Reset entry point. 



DOW 
DC.V 
DC.W 
DC.V 
DC.W 
DC.W 



SWlIntr^ 
Entry V 



; Define Constants 



TRiCOScrn •, 



DC.B 
DC.B 

SelMenu DC.B 
DC.B 

; code section 

CodeSec SECTION 
Entry: 



; For tables and constants. 

TRICO «. LineFeed 

■ Lubricant Monitor Formfeed 

MENU: LineFeed 

- Time. Oil, Setup -, FormFeed 



/Code starts at $180 £ RESTART vector pts here 
/Initialise stack 




8 : \GROUPS\8WJ\PRODl C\Docv 
Main: 



tion List ings\Main. asm - 05/14/1999 10:17/50 



JSR 


Eardwarelnit 


j»r 


CetDateTime 


Ida 


SMotorSpecdMed 




Motor Speed 


J»* 


TricoDisplay 


JSR 


ADConvert 


JSR 


Keypad 


JSR 


ViscControl 


jsr 


MainMenu 


jar 


Alarm 


jtnp 


LJtain 



TricoDisplay 



TricoDisplay; 

JSR 
LDX 
LjTScreen: 

IDA 
STA 
CMP^ 





C_TScreen 




^JMP'.i 


L_TScreen 


C_TScreeni. 

JSR 




WriteData 


JSR 


OneSecDelay 


JSR 


OneSecDelay 


JSR 


OneSecDelay 


JSR 


OneSecDelay 


JSR 


OneSecDelay 


JSR 


ClrDispBuf 


DispKenu JSR 


ClrDisp 


LDX 


#0 


LJDMenu LDA 


SelMenu. X 


STA 


DispBuf ,X 



initialization. 
/Hour value used in ViscControl 



' speed 



/ interrupts disabled so data can be 
/exchanged with Timer. asm 
/interrupts disabled 
/interrupts disabled 
/interrupts disabled 
/interrupts disabled i/^ 1 .- 

.^V* V 



ClrDisp^(^/'Clear Display, DDRAM address - 0, 

n i> 

TRiCOScrn. X /Transfer caned test data from ROM 
DispBuf, X /to Display Buffer. 
,;#FormFeed 



/Write Display Buffer data to 



/Clear Display Buffer. 



/Transfer caned test data from ROM 
/to Display Buffer. 




B:\GR0OPS\ENG\FR0DlC\Documentation Listings\Main.asm - 05/14/1999 10:17:50 



CMP 
BEQ 



CDMenu JSR 
JSR 
R_TScreen 



SFormFeed 
C DMenu 



WriteData /Write Display Buffer data to Display. 
ClrDispBuf /Clear Display Buffer. 



ClearRAMi: 

LDA 
LDX 

L ClearRAMi: 
STA 
IKCX 
CPX 



8RAM1 
.X 



SRAMlEnd ? i$L * 
L_ClearRRMl 



Hardware initialization. * 



Hardware rait: 
LDA 
STA 



JSR 
JSR 



»$C2 
$3 PDF 



ClearRAMi 
Port mi t 
Displnit 
Keypadlnit 

lOMenuInit 



/Setup Option Register. 
/$0020~$004F and $0100-$017F 

/selected as ram's; IRQ is 
/edge and level interrupt. 
/Write O'o to RAMI. 
/Initialise I/O porta. 
/Initialise Display. 
/Initialize Keypad Subroutine 
/Variables . 

/Initialize lOMenu routine's 
/variables . 
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E:\GROUPS\ENG\PRODlC\Documentation Listings \Main. asm - OS/14/1999 10:17:50 

JSR TimerOCIEn /Enable Timer Output compare 

i interrupt . 

JSR RTCCReglnit /Initialise SPI Control Reg. 

/ Ida «l 

/ sta ViscStatus 



Portrlnit: I/O Port Initialization Routine 
(Port D init to be included later * 



BSET 
BCLR 
BCLR 



#$02 /Initialize PORT A, Realtime Clock 

PORTA zR/W and A/D disabled RTC CE»0, 

/A/D CS*«1, 2-7-0 
GreenLED, porta 

Ye 1 LED, PORTA 



#$0A 
PORTC 



LDA 


#$7F 


STA 


DDRA 


LDA 


#$0F 
DDRB 


STA ; «? 


■»!!».*"■. 

LDA fp 


*$FF 




DDRC 


"% 





/Initialize PORT C, display R/w 
,disabledRS»0.R/W-l,E-0, PC3.1 

"J / (disable motor Driver) 

./DATA4-DATA7.0. 

/Port A PA0-FAS output/ PA7 input. 

/Port B lower nibble. output/ 
/upper nibble, input. 

/Port C ell outputs 



/ Temporary Interrupt Bandeler 



SPIIntr RTZ 
scilntr RTI 



/Any of these shall be 
/is defined. 



removed when 1 t 
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:\GROOPS\aiO\PROOXC\Docuaent*tion U«tlag.\Maln.«a 



'14/1999 10*17:50 



JSH "Timer • tmavA to "Timer' . 

bSjT OClEBlt.Toxpi i 25dMl/500 Kh»> » .5 msec. 

i(4) Output caapmr* Output lev«l is 

KIT 



IRQIntr KIT 
SWIlntr KIT 
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Bi\GROUPS\Bze\PRaDlC\C>ocuaeatmtiOD LiBtinga\ADCmvej 



i - 05/14/1999 10:30 



include •AimiesEQu.inc- 



; ADConvert Equate* 


OilTemp 


EOT 


$00 


ViocTecp 


BQO 


«10 


OilPJTTemp 


EQU 


$20 


011RB 


EQU 


$40 


AirRH 


EQU 


$50 


Vise 


EQCT 


$60 


ADTSt 


BQO 


$B0 



VlscAD, ViscTempAD. AD_SPXSetup, ViscBuf, ViscTempBuf 

_100usDelay { . ''^pl 

ADConvert, OilTempBuf , OilRHBuf, OllRSTempBuf : 



VlscTempCor equ 



€ 



iVD chan 0 addr - For oil temperature . 
jA/D chan 1 addr - For viscosity twnperature . 
/A/D chan 2 addr^For oil relative humidity temp. 
/A/D chan 4^eddr -'Tor oil relative humidity. 
/A/D chan-a "*ddr^?For air relative humidity. 
/A/D chah^S^addr - For viscosity pressure. 
iA/D\cony^urter channel B address. 
jFor y> ii^^converter test. This 
^channel^should read (Vrf ♦ Vag)/2.$80. 

' ^ j value that must be added to ADConvert output Cor 
,\ Ycorrect temp reading. 

jf> /(value in ViscTempBuf is 2* (temp-icdegC) 



Define Variables 



VaxSed 



SECTION 



OilTempBuf DS.B 

ViscTempBuf DS.B 

Oi iRHTetnpBuf DS . B 

AirRKTempBuf DS . B 



OilRHBuf 
AirRBBuf 



DS.B 
DS.B 



B : \GROOPS\KWO\PROD1C\DOC 
ViscBuf 



DS.B 
DS.B 



itica Listing»VADConvert.asm - OS/14/1999 10:10 
1 i A/D internal test channel data storage. 

1 /used to get data from A/D because 
/every other value not valid 



SECTION 
DS.B 



; Code section 

CodeSec SECTION 

ADOonvert: 

JSR 
JSR 
JSR 



JSR 
JSR 



JSR 
RTS 



• .<-13 

AD_SPISetup { *J ~ *'" 

t**e*eeA*****4* St J 



AD SPlSetupiT 

r BSET 

LDA 
LDA 
LDA 
STA 



<0 

ADjipiSetup 

OilTempAD tk % 

ViscTempAD 

OilRBTempAD 

OILRHRD ^ & % W 

ViscAD /Viscosity A/D reading used in 
^W r »xtmerOC- routine to 

ADTestAD^ 



a.n 
4,d 



j Set MOSI as output. 
» Set SCK, as output. 



SPSR /These four instructions make 

SPDR /sure that spif, wcol, and modf 

»SPCRVal_AD {flags in SPI Status Register are 
SPCR /cleared. 

/SPI interrupt disabled, SFI system 
/enabled, PORT D outputs are CMOS 
/outputs, SPI is master. SCK is 
/internal cloeX/4. 



E:\GEROUPS\EMG\PRODiC\Documentation Listings\ADConvert .asm - OS/14/1999 10:30 



OilTempAD * 



OilTempAD 
L OTAD 



CLR 
BCLR 



LDA 
STA 

LIJTTAD LDA 
AND 
BGQ 
LDA 
STA 
BSET 
JSR 
BRSET 
COM 
JMP 

RjOTAD: 

RTS 



ViscTempAD;., . . 

CLR /* *•£ 
L VTAD: >f^K-- ' 
v-BCLR 



1, PORTA (Enable AD Converter. 

/AD Enable (CS*> is PORT A bitl . 
SOilTemp /Send AD test channel address ($QB) 
SPDR /to AD. 

SPSR 

BSPIFMasX 

L1_0TAD 

SPDR 

OilTeopBuf 
1, PORTA 
_100usDelay 
7 , ADCounter , R_OTAD 
ADCounter 
L OTAD v > ' 



LDA 
STA 



AND 

BEQ 

LDA 

Sta 

BSET 

JSR 

BRSET 



Disable AD Converter. 



ADCounter 



#ViscTemp 
SPDR 

SPSR 

SSPIFMask 

Ll^VTAD 

SPDR 



/Enable AD Converter. 
/AD Enable <CS*> is PORT A bitl. 
/Send AD test channel address ($0B> 
/to AD. 



1, PORTA /Disable AD Converter. 

lOOus Delay 
7. ADCounter , RJVTAD 



E:\GR0UPS\ENG\PR001C\Documentation Hstings\ADConvert .asm - 05/14/1999 10:30 



COM 
JMP 



Ida 
add 



STA 
RTS 



ADCounter 
L_VTAD 

ReadBuf 

sviscTempCor /add in temperature correction 
/determined during calibration. 

ViscTempBuf 



OilRHTempAD 



OilRHTempAD : 
CLR 

L_OilRRTAD : 

BCLR 



LDA 
STA 

LI OilRHTAD: 
LDA 
AND 
BEQ 
LDA 
STA 
BSET 
JSR 

BRSET. ^ 
COM . t \ 
JMP^ ' 
R_OilRBTAD:V/ 

RTS';, 



ADCounter 
1, PORTA 

SOilRHTemp 



/Enable AD Converter. 

j AD Enable (CSM is PORT A bitl. 



/Send AD test channel address ($0B) 
ito AD. .„ 



SPSR T -. 

SSPIFMask 
Ll_OilRHTAD 
SPDR 

OilRHTempBuf 

1, PORTA /Disable AD Converter. 

_100usDelay 
7 .ADCounter, R_OilRHIAD 
^ADCounter 
LjOilRHTAD 



BCLR 
LDA 



, Enable AD Converter AD Enable (CS*) 
/is PORT A bitl. 

/Send AD test channel address (SOB) 



Appendix A 

Docket 8121-15132-C1P-CX 

Page 10 of 76 



K:\OT0UPS\ENB\PROmC\Docuoentation Lis tings \ADOonvtjr 



05/14/1999 10 j 30 



STA 
LI OtlRKAD : 

tax 

AND 
BBQ 

STA 
BSET 
JSR 
BRSET 
COM 
JMP 
R OilRHAD: 

RTS 



ViScAD: 

OA 

L ViSCAD: 

BOA 
POST A bitl. 

LDA 
STA 
LI ViseAD: 

LDA 
AND 
BBQ 
LDA 
t-'STA 

•-..Bssr 

BRSET 

COM 

JMP 

R Via CAD: 

Ida 
ft* 

RTS 



SPUR 



l to IAD. 



SPSR 

tSPXFMask 
UjOilRHAD 
SPDR 
OilRHBuf 

1. PORTA j Disable AD 

_100uaDelay 

7 .ADCounter . R_OilRHAD 



L OilRHAD 



if 



ADCounter 
I. PORTA 
•vise v 



4 ...j finable AD Converter A/D finable (CS*) is 

^rf. iSend AD test channel address (SOB) 

" ' tto AD. 



' SPSR y 
iSPlFMask 

_ •^-W.JWscAD 
^ SPDR 

ReadBuf 

1, PORTA {Disable AD Converter. 

lOOua Delay 
7, ADCounter. R_ViscAD 
ADCounter 
L_ViacAD 

ReadBuf 
ViSCBuf 



Bi\CROOPSVENO\PRODlC\Doc atlon Us tinga\ADCoavext .asm - OS/14/1999 10:30 



ADTestAD: 

an 

L_ADTAD: 

BCLR 
PORT A bitl. 

LDA 
STA 



l.P 
SADTst 



i Enable AD Converter A/D finable (CS*) is 



i Send AD test channel address (SOB) 
ito AD. 



AND ftSPIFMask 

BEQ LI ADTAD V, 

LDA SPDR V 

STA ADTstBuf ^W-^;>. ' 

BS5T 1, PORTA . » Disable AD CWWextet.*"."^ 

JSR _i00us Delay U ^ 

BRSET • 7, ADCounter, R_ADTAD ,f 

COM ADCounter S 

JMP L ADTAD 
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EA<ntOCPS\ENG\PRODlC\rxxumentatian Listings\Keypad.a- 15/14/1999 10 i 41 t 04 



Keypad. asm 



INCLUDE ■AllFilesEQO.ine' 



Keypad, Keypadlnit, Lastxey 
_10msDolay , AlarmTimer 



i Keypad Equates - defined in AllFilesSQU so they can be used by. Menu 
i subroutines Shown here for reference only. ,£ * 



/Enter 


EQO 


$44 


/Right 


EQU 


$42 


/Left 


EQO 


$41 


/Nextltetn 


EQO 


$24 


/Down 


EQO 


. $22 


/Up 


EQO 


$21 


/Setup 


ECfO 


$14 


/Oil 


EQO* 


$12 


/DateTine 


EQO 


»\ 




Define Variables 
•••••« •#*••** •••V 



/Enter key W.ww^ 

/Eight kevfkey cW? 

/Left keyleey code. 

; Next I tern key-key code. 

/Down., key key code. 

/Op key key code. 
«t Setup" key key code. 
J- ioil key code. 
$/ Time/Date key key code. 



VarSec SECTIOK^'%, > ;; y 

LastKey 9 v-DS.B 1 
TetnpValue DS.B 1 

/Define Constants 



/Hold the key code of last key entered. 



Const Sec 
Keyrable: 



/For tables and < 



stents . 



DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



Enter 
Right 
Left 

Nextltem 
Down 



/Enter - $44, R0W3-C0L3, FB6-PB2»1 
/Right - $42, ROW3-COL2. PB6-PB1-1 
/Left - $41, R0W3-C0L1. PB6-PB0-1 
/Nextltem - $24, ROW2-COL3, PB5-PB2-1 
/Down - $22. R0W2-COL2, PB5-PB1-1 
/Op • $21, R0W2-C0L1. PB5-PB0.1 
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E : \CTROUPS\ENG\PROD1 C\Doc\ 



DC.B 
DC.B 
DC.B 
KeyTablsEndt 
KeyTableLength: 



STA 

LDA 
AND 
BSQ 

clr 



Setup 
Oil 

DateTine 



tion Listings\Keypad.asm - OS/14/1999 10:41: 
/Setup - $14. ROW1-COL3, PS4-PB2-1 



/Oil ■ $12. R0V1-COL2. PB4.PB1-1 
/DateTime • $11, ROWl-COLl. PB4-PB0-1 



KeyTableBnd - KeyTable 



Keypad: 



•$07 
PORTB 



• $70 

RRypd 



LJCypd: 



LDX 

JSR 
DECK 
BNS 
LDX 



/Turn on all columns. t^*j* 

/Port B upper nibble is Input lowers 

/nibble is output. -sS^ \< 

/Read rows. #a& Si > 

/Mask away coluntnnsy^'"^ 

/No key is pressed.' return from the 

/routine. br* e 

/clear count er^use'd by ALERT for 

/redisplaying : *£3V 

/alert *msg - t this keeps alert from being 
, redisplayed' while an entry is being made 



_lQmsDelay;;, 

LJCypd 

v #0 , -v 



LlJCypd: 



LDA \ KeyTable. X 



&STA.',. 
■^da 



C_Kypd: 



STA 
bra 



Cl^Kypd: 



PORTB 
PORTB 
«$7F 

KeyTable, X 
CKypd 
LastKey 
Ci.Kypd 



SKeyTableLength 
Ll_Xypd 



/Key is pressed, debooounce for 
;50 milliseconds. 



/The Key Table contains key codes: 

/DateTime. Oil, Setup. Up, Down, 

/Enter, Left and Right. 

/Drive colunmns. 

/get row data from top nibble 

/mask off 4th row 

/ (not used for 3x3 keypad) 

/Check for row and colunmn match. 

/Found the pressed key. 
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/Check to see if the key is 
/ released . 

/The key is not released. 



LDA 
AND 



LDX 



*$70 
ClJCypd 
«S 



L3JCypd: 



KKypd: 



_lQmsDelay /Debooounce for SO milliseconds 
/before exit. 

L2_Kypd 



Keypadlnit * 



Keypadlnit : 

LDA 
STA 



0 inactive /initialize (LastKey) — » 0 
LastKey /LastKey hold the key code of 
/last key entered. 
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B; \CR0CTPS\BT3C\ PRODI C\Docicaeat«Ciem Ll»£iag»\ViacCont ma - 05/14/1999 10: 



ViscControl. asm 



XNCXDDE •AllPilesEQO.inc- 



ViscControl, Vis cocao teron, Purgadn, PurgeOff 

ViscRd. ViacRdTO ~£>. 

ViscOTiming, ViacRdCotr. viscPulseAveLo, ViscPulaeAveBi 

Bour> , SourlAst. ViscStatus % 

Oi litem, Setupltem, AlarmTioer .%H$&3&jr * 

Mo cor Speed, MoeorSpeedLow, MotorSpeedMed, MotorSpeedBigh 

SVCRead i get Viscometer Calibration "value from Dallas RTC 

VCConverMlnt j convert that value to a single byte integer 



SECTION 
• ViscControl * 
ViscControl : 



$ "% 

LDA or*' ViscStatua 
0€P £ iStartup 

beg <n %rf;C30_ViscC 




/viscometer will not run at startup. 



^CMP 
beg 



Vises tatus 



SRdlnProg 
C20 ViscC 



t Chech if there is viscometer 
/read- in-progress 



mse these for one test/hour 
f Ida Hour Last 

, cmp Hours 

i beq ClOjrtscC 



/use these for one test/day 

braet S,HourLast.C10_ViscC itest AM/PM bit - vise 1 



R:\GROOTS\ENG\PROBlC\Doc 



idea Listicga\ViscControl .a 



05/14/1999 10: 



JSR 
C10_ViScC: 

USA. 
CMP 
bne 
clr 

DO ViscC: 

Ida 
sta 



5.Hours,C10_ViscC 
viscometeron 



i automatically 

/when time transistion* 

/from AM->PM 



vises tatus 

•PurgeXnProg /check for purge-in-progress 
OOJViscC /and if so, clear timer 

JUaxmTimer /to keep alarms from being displayed 
/during purge. 



<2 ~ 



ViscometerOn: 
LDA 
STA 
STA 
STA 
STA 
STA 



80 

ViScRdTO 

ViscOTiming . ^-c^ 
ViscRdCntr^;^> 
ViscPulseAveLo " 
ViscPulseAveHi 

ft* 

Ida A ^«MotorSpeedMed 
sta-. «*• '-MotorSpeed 

^Jsr:%^ V SVCRead 

? jsr VCOoavertSlnt 



/get Viscometer Calibration value 
/from Dallas RTC 
/convert that value to a single 
j byte integer 



Ida 

STA 
RTS 



ORdOrder 
ViscStatus 



* PurgeOn 
Purgeon: 
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LDA 


SO 


STA 


ViscRdTO 


Ida 


BMotorSpeedMed 


sta 


MotorSpeed 


Ida 


apurgeorder 


STA 


ViscStatus 


RTS 




* PurgeOff 




PurgeOf f : 




Ida 


ViscStatus 




spurgelnProg 


bne 


Ci0_PrgOf f 


Ida 


soilPurged 


STA 


ViscStatus 



Cio^PrgOff 

RTS 



Page 3 



Appendix A 
Docket 8121-15132-CIP-CON 
Page 13 of 76 



EACacCPS\E«\PRODlC\Docu3Sent*tiQn L±stings\mainm«3U' 

•••••••*****•*••••** , 

••••»«••«••**»*••••• i 

MainMenua.asm •• 



OS/14/1999 11:09 



This routine executes: 



1. DateTimeMenu - 



5. SetupMenu 



Detects which menu (Time /Date, Oil, or Setup) an 
operator selected, and setup parameters tor^-f 5» 
processing the selected menu. ^ 
Execute Tine/Date menu, displays v tia» r and. date from 
real time clock.- {flk% 
Display oil viscosity, tes^erature.-jToil life left, 
and relative humidity. J%Z&* 
For input ing time/date, high oil temperature, 
viscosity ISO code, and elapsed time since oil 
change. ir^fL et 

Automatically flasher warning message on the screen 
or blinks ledT ou^tha^panol when: 

a. Oil temperatur®exceeds limit. 

b. Oil viseosity^exceeds limit, 

c. Ralative'humioity exceeds limit. 

d. Oil life ends,' 



, dCXCDB -AllFilesEQO.inc" 



MainMenu 
lOMenuInit 

Oil Item, Setupltem. MenuXtemLast, KenuZtem 
Oil XTO, SetupJTN, DateTimelTN 



XREF SetupMenu, OilMenu, DateTimeMenu 
XREF Last Kay 



OneSecDelay. KriteData, ClearDisp, DiepBuf 
Dispinit, DispTestS 



B:\CROOPS\KNO\PRODlC\Doc ition Ustings\B3aixjmenu3 .asm . 
XRSP ClrOlsp. ULrOispBuf 

XRSF TestViscITN, OilltemLast, SetupltemLast 



i Define Variables <IOMenu> 



OS/11/1999 Hi 09 



MennltemLast: 
DS.B 

Menultem DS.B 



i This byte is Initialised to 'Active* fox displaying: 
t "TRIOO Lubricant Monitor* after power up. it's cleared 
i to ■inactive* after the display. 

■ 

/Value of Kenultem from last time thru^'^j, Sj. 
/ 1. Time/Date key pressed: % s ^~ 
i a. Oil key pressed: srAjw> 
i }. Setup key pressed: <r . -a & 

OiHtem DS.B l ilhis byte is initialised to >n*' 

i and cleared to *0* when Oil Henu'is selected. 
/ Zf there are n+1 kinds of oil informations to be 
; displayed ,OilItem <! could > be 0,1,2, ...n. The content 
i increments by one|if *"Next Item* key is pressed, 
i and rolled over 'to •*0*f' 

*3r 



Setupltem: 

DS.B 



j Setupltem works in the 
, "Setup Menu* ^^ 



'fit the content is n. 
way in processing 



DateTimelTN SOU "'^lv' 



OilXTN 
SetupITO 



800. 4 ft 



CMP 
BMB 
IDA 
STA 
bra 



LastKey 

ftDateTime 
ClO^MMenu 
0 DateTimelTN 
Menultem 
C30 MMenu 



I -LastKey* is the storage for the key code 

i of last key pressed. 

i Was DateTime key pressed? 

/Branch if not. 

> Set flag to indicate DateTime 
; menu is active. 
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ClOJHMenu: 
LDA 

CMP 
BNE 
LDA 
STA 

Ida 
sta 
clr 
bra 

C20 MMenu: 



CMP 
BNE 
LDA 
STA 

Ida 
sta 
clr 

C30 MMenu: 
Ida 



bra 

C50_MNenu: 
Ida 



JSR 

■ bra 
MMenu: 
Ida 



JSR 



LastKey 
soil 

C20_MMenu 

ftOillTN 

Kenultem 

ftOilViscITN 

Oilltem 

OilltemLast 

C30_MMenu 

LastKey 

ftSetup 

C30_MMenu 

ftSetupiTN 

Menultem 

ftTestViscITM 

Setupltem 

SetupltemLast 



/"LastKey" is the storage for the key code 

j of last key pressed. 

i Was Oil key pressed? 

(Branch if not. 

/Set flag to indicate Oil 

/ menu is active. 

/set up what initial display 



/"LastKey" is the storage for the key 

/code of last key pressed. V 

/Was Setup key pressed? 

/Branch if not. :\. * 

/Set flag to indicate Setup 

/ menu is active. 

/set up what initial display 



Menultem ■** « •S' 

•DateTimeXW v ■ 

CSOJWenu 

DateTimeMenu , - /Execute Time/Date menu, displays 
—/time and date from real time elk. 

C70J 



Menultem . 
ttOilrm 
C60_MMenu 
OilMenu 

C70. 



Menultem 
ftSetupiTN 
C70_MMenu 
SetupMenu 



warnings 



/Display oil viscosity, temp, oil life 
/left, and relative humidity. 



/For input ing time/date, high oil 
/temperature, viscosity ISO code, and 
/elapsed time since oil change. 

/Automatically flashes warning message on 
/the screen or blinks leds on the panel when 

/ a. Oil temperature exceeds limit. 
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~t b. Oil viscosity exceeds limit. 

/ c. Relative humidity exceeds limit. 

t d. Oil life ends. 



LDA 
STA 

Ida 
sta 
cli 

RTS 



ft Inactive 
LastKey 



Menultem 
MenultemLast 



/Clear LastKey. 



Warnings 



warnings RTS 



lOMenulnit: 
Ida 
sta 
sta 
sta 
RTS 



Menultem 
Oilltem 
- Setupltem 
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XRET 
XREF 



DateTimeMenu. RTC_SPIS«tup 
DateTimel. GetDateTime 

Sec. Min. Hours . Day , Date , Month, Year ;~Year_XlKXi 0 0 
DecASCll, to, Pm. Coloxxjf^^ 
RTCounter «; 

Year Xl OOS , YearXlOS . MonthXIOOS , Month* IPS , Da teXl OOS , DateXlOS 
HrXlOOS . HrXlOS , HinXl OOS , KinXlOS , AmPmOS . ColonOS 
xttlhbleHiLo, aNibbleHiLo 

\"* 

_l00ua Delay,: OneSecDelay, NriteData, LinelAdd 
ClrDisp,\ClrDiapBuf . CursorOf f 
DispBuf , "" DispBuf 2 , Ln20SLinelAdd 
, "WaitSPIRdy 



Define Consta nts 



ConstSec SECT! 


ON 


;For tables and constants. 


DecASCll: 

DC.B 


•o- 




DC.B 


"1" 




DC.B 


•2" 




DC.B 


■3- 




DC.B 


•4" 




DC.B 


"5" 





B : \GROOPS\ENG\PRODlC\Doo' 



tion Li s tlngs\DateH rrw-Memi . asm - 05/14/1999 n 



DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



DateMmeDB20S 

> Yearn ms 

iTearllOOOS 

YeaxXICOS 

YearXlOS 

KonthXIOOS 

MontbXlOS 



■«" 
•7« 
•8- 
•9- 
•A" 
■P- 



HrXlOS 

MlnXlOOS 

KinXlOS 



DateTimeScm 



DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



DC.B 
DC.B 



8 
« 
7 
6 
7 
0 
1 
3 
4 

12 
13 
15 
IS 
18 
14 



i Date /Time is displayed on lines 
/of the display. Before the Date/ 
» Date /Time is displayed on line 2 
iof the display. Before the 'Date/ 
fTime Is displayed, the current 
i Date /Time data is copied to the 
{display buffer DispBuf 2 .-;The" 
i offset of each character 'from 
,the label DispBuf 2>a .identical 
tto its offset \f rata the starting . 
/position of linear' 
iDateTiraeDB20S tabulates the 
i offsets* of Date/Time digits for 



•*&Date 
/ 



VarSec 



DateTimel: 
Sec ' : 
Kin 
Hours 
Day 
Date 
Month 
Year 

Year xikxioo 



SECTION R 

• v-^DS.B 



M-, PortaPeed 



*% DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
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CodeS ec SECTION 



DateTimeMenu 



DateTimeMenu : 
JSR 
JSR 



JSR 
RTS 



; # SUBROUTINES * 
/ «ftftft«33B»»tt»*ttftfta8 



RTC_SPISetup 



RTC_SPISetup 
GetDateTime 



DateTimeDisp 



t Setup SPI for realtime clock link, 
/get Date/Time and store it in sec, 
/Min, Hour 8, Day, ' bate. Month, and 
/Year storages. ;|. 
/Display Date /Tine on display. 

% J 
/••-Return*** 



2 SPZSetUp: 




BSET 


3,DDRD 


BSET 


4.DDRD 


LDA 


SPSR 


LDA 


SPDR 


LDA 


8SPCRVal_RT 


STA 


SPCR 



/Set MOSI as output. 
/Set SCK as output. 

/These four instructions make 
/sure that SPIF, WCOL, and MODF 
/flags in SPI Status Register are 
/cleared. 

/SPI interrupt disabled, SPI system 
/enabled. PORT D outputs are CMOS 
/outputs, SPI is master, SCK is 
/internal clock/4. 
/♦"Return*" 
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GetDateTime 



GetDateTime: 
BSET 



STA 
LDX 



0. PORTA 

«SecR 

RTCounter 

•0 



L GetDT LDA 
STA 

LI GetDT LDA 
AND 



BEQ 



LDA 
CMP 
BNE 
INC 
JMP 

LDA 

STA 

LDA 

CMP 

BEQ 

INCX 

INC 



RTCounter 
SPDR 



USecR 
RTCounter 
C GetDT 



L_GetDT 
SPDR X" . 

Sec.X 
ftYearR + 1 



/Bit7 of SPI Status Register (SPSR) 
.-is set upon completion of data 
/transfer with external device. 
/SPIFMask ■ $80., 
/Loop if data transfer is not 
/completed yet. 



Cl_GetDT 



LDA 
STA 



JSR 
LDA 



LDA 
STA 



ftYear_XlKXl00R 
SPDR ~ 



WaitSPIRdy 
SPDR 



SYearJClKXlOOR 
SPDR ~ 



WaitSPIRdy 
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B:\GR0OTS\ENa\PR0DlC\Documnt4tion Li stings \D»teTimeK 



V«ar_xiKXlOO 



i* LDA SPU. 
i 'WaitSPtRdy routine. 



Q3/14/1999 11 





_100uo Delay 
Year 
R_GetDT 
•$20 

Veer XiKXioo 



/RJSetDT: 



DateTimeoisp 



DateTimeDisp : 

Ida 



JSR 

JSR 
LDA 
STA 

JMP 



i***Return*' 



MenulcemLoBt, & 

.^'rSecPre 
5 M itTmi'ep 



I Cl_pTDi sp : 




00 

DateTimeScm.X 
DispBuf ,X 
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ion Listings\BateTimeMenu.i 



- 05/14/1999 11 



LDX 
JSR 
IXA 
LOX 



Month 

xtUhbleHiLo 
DecASCIJ. X 
Monthxioos 

DispBuf 2, X 
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LDA 
AND 
TAX 
LDA 
LDX 
STA 

LDX 
JSR 
LDA 
LDX 
STA 



«$0F 

De CAS CI I, X 
HrXlOS 
DispBuf 2, X 

Mia 

xNibbleHiLo 
DecASCZZ, X 
MinXlOOS 
DispBuf 2. X 



C5_DTDisp 



LDA 
AND 
TAX 
LDA 
LDX 
STA 

LDA 
AND 
BEQ 
LDA 
LDX 
STA 
JMP 

LDA 
LDX £ 



MinXlOS 
DispBuf 2. 



0520 

C5_DTDiBp .' . 



C6_DTDisp 



«_DTDisp JSR 



R_DTDisp 



JSR 
RTS 



DispBuf 2. X 



LinelAdd 
WriteData 



/Write Display Buffer data to 
j Display. 
;** 'Return*** 
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xNibbleHiLo LSRX 
LSRX 
LSRX 
LSRX 

RTS ; **»Retum** 



aNibbleHiLo * 



To shift index register high nibble to low nibble. • 



aNibbleHiLo LSRA 
LSRA 
LSRA 
LSRA 



/••♦Return*** 



* XNibbleHiLo * 



♦ To shift index register high nibble to low nibble. 
Page 7 
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E:\GROCrPS\KNG\PSjOOXC\Documentation LiStings\OilMenu.af 'S/14/1999 13:53:3 



••••••••••••••••a** 



If -SelectMenu' routine detects that "Oil Menu* is selected, 
routine will be executed. While -Oil Menu- is active, the routine 
continuously monitoring "Next item- key. The key causes -Oil Menu 
to display next oil item. The oil items ere; oil viscosity, oil 
temperature, oil life left, end relative humidity. ff v **^» 



XNCLODfi -AllFilesEQCT.inc- 



XDEF OilKecu. OTDispSta. OVDispSta. OLDispSta? ORBDisj CUXtenLest 

XRBP ClrDisp, CursorOff. LaatKey. oil! tea 

XRBF OneSecDelay, WriteData. DispBufr^OilKHDisp 

XRSP OilViscDisp. OilLifeDisp. OilTen^Oisp' 

XRKP MenultemLast. Menultem 

XKKP OTAlarmSta, OHAlarmSta.^OVAlarmSta, OLAlarmSta. Alarms ta 

XRST ViscStatus, 81inkFPSv'&^"t$> 

; Define Variables (OilMenurasm) 



OTDispSta 



OVDispSta ds.b 
OLOispSta DS.B 
ORHDispSta DS.B 



;Oil temp display status: 

; Active - Oil temperature item 

i just selected. 

t Continue - Continue oil 

; temperature item 

i display. 

i inactive - Oil temperature item 

i de-selected. 

/Oil Viscosity display status. See the 

/ explanation for 

;Oil Life Left display status. See the 
j explanation above. 

/Oil Relative Humidity display status. 
/See the explanation above. 



8 : \CROOTS\KMO\PROD1C\DOCU 
OilltemLast DS.B 0* 



lion Listings\OilMenu.asa - OS/14/1999 12:53:1 
/save oilXtem value to see Sen it changes! 



OilMenm 

Ida 



LDA 
CMP 



LDA 
CMP 
bio 
LDA 
STA 
bra 



LDA 
INCA 
STA 



Menultem 

MenuXtemLast 

Cl_0Menu 

Lastxey 

•Hextltem 

CljOMenu 

Ollltem 

ftLastOilXTK 

C3 OMenu 

91~ 

OilXtem 
Cl_ONenu 

OilXtem 



/has Oil Menu just been selected? 



i largest ITM used. 



JSR 
LDA 
CMP 



*£W ■ ■ 
or % ldatj 



beq 
brset 

jsr 

clr 
bra 

C16_OMenu: 

JSR 

bra 

C4_0Menu: 



Oi litem 

CursorOff 
OilXtem 
ibilVisctTN 
: rfFte ci jOMenu 
i ... n ViscStatus 
» : . Ya ^/»RdOK 

C16_OMenu 
OVAlarmSta 
•8 

ClfijOMenu 




/To see if Oilltem is Oil Viscosity. 
/Not viscosity. 



j only blink if Vise Reading and 
/reading is out of range 



» is there an alarm? 
/if -8, then no alarm 
0 , BlinkFF, Ci 6_0Menu ,BitO«l. then -blink on* 
j (display value) 
ClrDisp /BitO-O.then -blink off 

i (clear display) 



OilltemLast 



OilViscDisp 
C100_OMenu 



/Call oil viscosity display routine. 
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LDA 


Oilltem 






CM? 


SOilTempITN 


;To see if Oilltem is Oil Viscosity. 




BNE 


C€_OMenu 


/Not viscosity, branch. 




Ida 


OTAlarmSta 








#8 


jis there an alarm? 




be^ 


C46 OMenu 


; if -8, then no alarm 




brset 


0,BlinicFF,C4 6 OMenu ; BitCUl , then "blink on" 








; (display value) 




jsr 


ClrDisp 


; BitO-O.then "blink off" 






; (clear display) 




clr 


OilltemLast 






bra 


R_0«enu 




C46_OMe» 


J: 








JSR 


OilTempDisp 


/Call oil viscosity display routine. 




bra 


ClOOjOMenu 




CSOMenu 










LDA 


Oilltem 


/To see if Oilltem is Oil Viscosity. 




CMP 


80ilLiteITN 




BNE 


ca_OMenu 


/Not viscosity, branch. 




Ida 


OLAlarmSta 






•8 


/is there an alarm"? 




beq 


C6« OMenu 


/if -8, then no alarm 




brset 


O.BlinkFT,C6€ OMenu /Bito-l.then -blink on" 








/ (display value) 




j»r 


ClrDisp 


/ BitO-O.then -blink off" 








/ (clear display) 




clr 


OilltemLast 






bra 


ROMenu - 




C6 6 OMenu: 








JSR 


OllLif eDisp 


/Call oil viscosity display routine. 




bra 


ClOOjOMenu 




CS_OMenu 










LDA 


OilXtem 






CMP 


SOilRHITN 


/To see if OilXtem is Oil Viscosity. 




BNE 


ClOOjOMenu 


/Hot viscosity, branch. 




Ida 


ORAlarmSta 








88 


/is there an alarm? 




Si 


C86 OMenu 


/if -8, then no alarm 




brset 


O.BlinkFP,C86 OMenu ; Bit 0-1. then -blink on" 








/ (display value) 




jsr 


ClrDisp 


/BitO.O.then "blinX off 






/ (clear display) 




clr 


OilltemLast 






bra 


R_CMenu 




C8 6_OMen\ 


J: 








JSR 


OilRKDisp 


/Call oil viscosity display routine. 


C100_OMenu: 
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Ida 
sta 



Oilltem 
OilIt< 
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E : \C»OCPS\B2C\F&QDlC\Documentation LI a t ings\Oi iTempDi i 



o - 05/14/1999 14: 



■ OilTempDisp.asm 




This routine takes the oil temperature reading scored in a buffer by 
ADOcnvert routine and display toe temperature on the screen. The 
buffer contest is used for indexing to a ASCII temperature table for 
displaying the temperature in Centigrade and Fahrenheit. 



•AllFileaBQO.inc- 
Oi ITempDi sp. Topi, Ttap2 

writeCodS, Ln20S. LnlAdOS. OilTempBuf ,>LinelAdd 
DispBuf, DispBuf 2. ClrDisp. VriteDataOS, ClrDiapBuf 
OiLACt, OTDispSta 
Oillten, oilltemLast 



Define variables 



VarSec SECTION 

Topi DS .B 

Ttsp2 OS.B 
OilTempLast xDS-B 

OTDFilterCnV'S DS.B 
CodeSec \ 




/Temporary storage. 
/ Temporary storage. 
/Storage for Oil Temp currently 
» been displayed. 



OilTempDisp 



OilTempDisp; 

Ida 

bne 
C10_OTDisp : 
LDA 
lsra 
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Oil Item 

OilltemLast 

C30_OTDisp 



i The most recent temperature from A/D 
i divide by two to get degC 



S : \GROUPS \EM3\PBODlC\Docum' 



sub 
beq 
bpl 
nega 
C20_CTDisp : 

BPL 



loo Listings\OilTempolsp.aam 
previous reading from A/V 
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QO^OTDisp: 
LDA 
STA 



C40_OTDisp; 



BPL 
INC 

CS0_OTDisp. > '% 
... CLR^J- 
' LDA% 

lsra 

bee 

add 
C55_OTDisp: 
STA 

bis 

LDA 
STA 
C60_OTDiSp: 
JSR 



OllTempLast 
C20_QTDiip 
OOjOXDisp 



•2 /don't re-display unless change > 1 

C40_OTDtsp j only when "OilTempBuf * content 
OTDPilterCnt /changed for more than ♦/- l 
tend (OTDPilterCnt) - 10. 

RjOTDisp 

i Every time the subroutine is executed, 
i (OTDPilterCnt) is cleared if 
, (OilTempBuf) is not changed for ^ more 
j than ♦/- 1 count from {OllTempLast). 
i otherwise (OTDPilterCnt)^is incremented 
i by one. When (CTOPilterCnt) .'reaches 
i ten. (OllTempLast) .is^updated and output 
i to the display^and;(OTDFiicerCnt) is 
/cleared. 

810 i still active (for 'next cycle) . 

OTDPilterCnt iSince^oil temperature display was just 
/selectedgset (OTDPilterCnt) to ten so 
/that {OilTempLast) can be updated and 
^displayed right away. 

OTDPilterCnt.^ 
•10 ^ V 
CSOjOTDisp 
y OTDPiitercnt > (OTDPilterCnt) < 10. 
R_0TDisp /(OTDPilterCnt) ♦ 1. exit and no output 
/to the display. 

OTDPilterCnt /(OTDPilterCnt) » 10, dear 
OilTempBuf / (OTDPilterCnt) and update 
/divide by 2 

C5S_OTDisp /is condition code set after shift, then 

/round value in A up. 
ftl /round up 



OllTempLast 
ftlOO 

CS0_OTDisp 
#100 

OllTempLast 
ClrDisp 



/store in degC 



/Clear display and set DD RAM address 
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LDX 
hi 0_OTDisp: 
LEA 
STA 
CMP 
BEQ 
INOC 

bra 

C70_OTDisp: 
LDA 

ldx 

raul 

rorx 
rora 
rorx 
rora 

rora 
rorx 
rora 
rorx 
rora 

rora 

rora 

CMP .* 



BLO 
CMP 
BLO 



SO 



/counter to point to the first location 
/of line 1 on the display. 



BLO 
jmp 



CB0 OTDisp: 

LSLA 



Oi lTempScm , X 
DispBuf ,X 
SLineFeed 
C70_OTDisp 

L10__OTDisp 

OllTempLast 



/Transfer Oil Temp Display screen 
/line 1 content to Display Buffer. 



/Oil temperature is stored in an Oil 
/temperature table 

/mul by 100. then divby 128 to 
/adjust index Cor OpAmpGain=5 . 



C30 OTDisp 
«60~ 

C90 # _OTDisp 
#90^ 

CI 00_OTDi sp 
Cll0_OTDisp 



/which is divided into OilTempTblO. 
/3Q. £0 and 90. The temperature range 
lis 0 - 100 deg C. The temperature is 
/tabulated in 1 deg C increment, each 
/consists of eight bytes of memories 
/for converting the temperature to 
/ASCII in deg C/P. 
/The temperature is < 30 deg C. 

/The temperature is < 60 deg C. 

/The temperature is < 90 deg C. 
/The temperature is > 90 deg C. 
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LSLA 






LSLA 






STA 


Tmpl 


/Tmpl contains the offset into 






/conversion block OilTempTblO. 


clr 


Tmp2 




L20_OTDisp; 






LDX 


Tmpl 


/LljOTDisp loop transfers the ASCII 


LDA 


OilTempTblO, X 


/temperature code from the 


CMP 


ftPormFeed 


/oil temp table to the display buffer. 


beq 


C85_OTDisp 




LDX 


TtnpJ 




STA 


DispBuf2,X 




inc 


Tmpl 




inc 


Tmp2 




bra 


L20_OTDisp 




CaS_OTDisp: 






JMP 


C120_OTDisp 




C90_OTDisp: 






SUB 


*30 


/This and following three 


LSLA 




/instructions adjust (A) so that 


LSLA 




/A will contain the offset from 


LSLA 




/OilTempTbl30. 


STA 


Tmpl 


/Tmpl contains offset into conversion 






/table •OilTempTbiao". 


clr 


Tmp2 \\ 




L30_OTDisp: 






LDX 


Tmpl %■ * " 


/L30_OTDisp loop transfers the ASCII 


LDA 


OilTempTbl30.X 


/temperature code from the 


CMP 


SPormFeed 


/oil temp table to the display buffer. 


BEQ 


CL20_OTDi8p 




LDX 


Tmp2 




STA 


DispBuf 2.X 




inc 


Tmpl 




inc' 


Tmp2 




bra 


L30_OTDisp 




C100_OTDisp : 






SOB 


860 


/This and following three 


LSLA 




/instructions adjust (A) so that 


LSLA 




/A will contain the offset from 


LSLA 




/OilTempTbl60. 


STA 


Tmpl 


/Now Tmpl contains offset into 






/conversion block OilTempTblSO. 


clr 


Tmp2 




L40 OTDisp: 






LDX 


Tmpl 


zL3_OTDlsp loop transfers the ASCII 
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LDX 

m 
inc 



Cl 1 0_OTDi sp ; 

SUB 
LSLA 



STA 

CLRA 
STA 
LSOjOTDisp: 
USX 



lnc 
inc 
bra 

CI 20 OTDisp: 
clr 
L60 OTDisp: 

LDX . 



OilTempTt>l60.X /temperature coda t. . the 
•FormFeed f toil temp table to the display 
CL20_pTDi*p i buffer. 
Ttap2 

DispBuf2,X 

Topi 

Tmp2 

L40_OTDisp 



/This and following three 
/instructions adjust (A) so that 
;A will contain the of feet. from 
/OilTempTbl90. ^%J&* ^ 

jTwpi contains the offset Into 
i conversion block oilTempTbigo . 



Ttspl 



Tmp2 



r 



Tmpi jia_OTDisp loop "transfers the ASCII 

OilTempTbl90,X / tem^rature ,7 code from the 
a FormFeed i oil ur temp ,t able to the display 



STA 



BEQ 
inc 
inc 
bra 

CZ30 OTDisp: 
LDA 



C120_OTDiep 
Ttep2 

DispBuf2,Xjk 
Tmpl <£C§k> v 
T«p2 

1*50 OTDisp 

>*■; ' "% ' 

n Tfcpl 

■*^. Tmpl 

OilTetnpScrn + 21, X 



OilTefflpScm" lines. 



Tmp2 

DispBuf2,X 

•FormFeed 
C130_OTDisp 
TWpl 
Trap 2 

L60_OTDisp 

OilTempLast 



;Tmp2 points at the location in the 
i display buffer 

i just beside the temp data from the 

soil temp table. 

;Done? 



» oil temperature in degC - 
/OilTempBuf /2 . To center the 
/temperature displayed in line2 



S I \GROOTS\E3ra\PROOlC\Eocuta 



BPL 
LDX 
STX 
bra 

C140_OTDi8p; 

CMP 
BPL 
LDX 
STX 
.bra 

C250 OTDisp: 
LDX 
STX 

CZCOjOTOiSp: 
JSR 
JSR 

R__OTDisp: 

RTS 



•10 
CHO OTDisp 
•$40~ 
L&20S 

C160_OTOisp 
•100 

C150 OTDisp 

•$30~ 

Ln20S 

CXfiOjOTOisp , 

•$20 
Ln20S 

WriteDataoS 
drDispBuf 
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ion the screen, the offset from 

i the left of llna2 is* 

i4 if oil temp < io deg C, 

j3 if oil temp >■ io deg C 

/ a < 100 deg C, 

t 2 if oil temp . 100 deg C 



/Branch if oil tetsp »« io deg C 
/Oil temp < 10 deg C, line2 offset 
lis 4. (LO20S) -> ($40) 



(Oil temp >» 100 deg C. 
/Oil temp >■ 10 deg C/^l00.deg C, 
iline2 offset is 3, (Ln20S) '-> ($30) 

/Oil temp -JlOO deg^C, 

; line2 offset is' 2. (Ln20S) -> ($20) 

jKrit'e. Display Buffer data to 
i Clear Display Buffer. 




OilTempScrn DC.B 
H DC.B 



j Temperature Convertion Table 



/Oil temperature 
/display 

/line 1 and line 2 
/data. 



j Oil temperature is stored in OilTerapBuf as raw data from A/D converter. 
/OilTempBuf is copied to OilTempLast conditionally. The number stored in 
/OilTempLast is oil temperature in degree C multiplied by two, 
/ (OilTempLast)/2 « temperature reading. Oil temperature table is divided 
/into OilTempTblO, 30, 60 and 90. The temperature range is 0-100 degree C. 
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/The temperature is tabulated in 1 deg C increment, each consists of eight 
/bytes of memories for converting a temperature to ASCII in deg C/F for 
/display. 



OilTempTblO-. 

DC.B "0/32", FormFeed /LA20S -> 4 for Ln2AdOS to 

j center the oil temp display 
/on the screen. 



DCB.B 


3, $00 




/Filler to t 


sake each block 








/eight bytes long. 


DC.B 


"1/34-, 


FormFeed 


/ 






DCB.B 


3, $00 




/ 






DC.B 


•2/36", 


FormFeed 


/ 






DCB.B 


3, $00 




i 






DC.B 


"3/37", 


FormFeed 


t 






DCB.B 


3, $00 




/ 




DC.B 


-4/39", 


FormFeed 


i 






DCB.B 


3. $00 




l 






DC.B 


-5/41 \ 


FormFeed 


/. 






DCB.B 


3. $00 










DC.B 


-6/43", 


FormFeed ;/ 






DO .B 


3. $00 








DC.B 


-7/45», 




1 






DCB.B 


3. $oo x r ..3 
•8/46"." FormFeed 


i 






DC.B 


i 






DCB.B 


3, $00 




I 






DC.B 


•9/4H-, 


FormFeed 








DCB.B 


ft 3. $00 




1 






DC.B , 


•10/50- 


FormFeed 


/Ln20S -> 3 


for Ln2AdOS to 


DCB.B 


^•■•2, $00 






renter the 


oil temp display 


DC.B * 


* -11/S2- 


FormFeed 


/on the scr« 


sen. 


- DCB.B : 


2, $00 




/ 






VBC.B 


•12/S4- 


, FormFeed 


t 






DCB.B 


2, $00 




f 






DC.B 


•13/55- 


FormFeed 


i 






DCB.B 


2, $00 




» 






DC.B 


•14/57- 


FormFeed 


i 






DCB.B 


2, $00 




/ 






DC.B 


•15/59- 


, FormFeed 


f 






DCB.B 


2, $00 




t 






DC.B 


•16/61* 


FormFeed 


s 






DCB.B 


2, $00 




> 






DC.B 


•17/63- 


, FormFeed 


> 






DCB.B 


2, $00 




I 






DC.B 


"18/64" 


, FormFeed 


; 


» 
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DCB.B 




2, $00 


/ 






DC.B 




"19/66-, 


FormFeed / 






DCB.B 




2, $00 


/ 






DC.B 




"20/68", 


FormFeed / 






DCB.B 




2, $00 


i 






DC.B 




•21/70", 


FormFeed / 






DCB.B 




2. $00 


; 






DC.B 




•22/72*. 


FormFeed / 






DCB.B 




2, $00 


/ 






DC.B 




•23/73 - , 


FormFeed / 






DCB.B 




2, $00 


/ 






DC.B 




•24/75-, 


FormFeed / 






DCB.B 




2, $00 


/ 






DC.B 




•25/77-, 


FormFeed / 






DCB.B 




2, $00 


/ 




-,C; 


DC.B 




•26/79", 


FormFeed / 




DCB.B 




2, $00 


t 




DC.B 




•27/81", 


FormFeed / 






DCB.B 




2. $00 


1 


• ii' " 


V:''-' 


DC.B 




"28/82", 


FormFeed / 






DCB.B 




2, $00 


/ v . 




DC.B 




"29/84-, 


FormFeed.^" 






DCB.B 




2. $00 


^ 






OilTempTbUO: 












DC.B 




-30/86", 


FormFeed / 






DCB.B 




2. $00 , , 


%■ i 






DC.B 




•31/68 


FormFeed / 






DCB.B 




2, $00 


"*■;- ' 






DC.B 




"32/90", 


FormFeed ; 






DCB.B 




' 2, .$00 


i 






DC.B 




•33/91", 


FormFeed / 






DCB.B 




2, $00 


* 






DC.B 


•34/93", 


FormFeed / 






DCB.B 




2, $00 


; 






- -DC.B 




•35/95", 


FormFeed / 






DCB.B 




2, $00 


t 






DC.B 




"36/97-, 


FormFeed / 






DCB.B 




2, $00 


i 






DC.B 




•37/99". 


FormFeed / 






DCB.B 




2, $00 


i 






DC.B 




•38/100" 


FormFeed 


/ " 




DC.B 




$00 . 




1 " 




DC.B 




•39/102" 


FormFeed 


I * 




DC.B 




$00 




J " 




DC.B 




•40/104- 


FormFeed 


; " 




DC.B 




$00 




i " 




DC.B 




•41/106" 


FormFeed 


/ " 
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DC.B 
OC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
OC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
:^DC.B 
■^DC.B 
-DC.B 
DC.B 

OilTempTblfiO: 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



$00 

-42/106", 
$00 

•43/109* 
$00 

■44/111- 
$00 

•45/113- 
$00 

•46/115" 
$00 

•47/117- 
$00 

•48/118- 
$00 

■49/120- 
$00 

•50/122" 
$00 

•51/124- 
$00 

•52/126" 
$00 

•53/127- 
$00 

•S4/129- 

$00 V 
-55/131- 
$00 - 
- -56/133- 
$00 

^57/13S" 
' $00 
"58/136- 
$00 

"59/138" 
$00 

•60/140" 
$00 

-61/142" 
$00 

■62/144" 
$00 

"63/145" 
$00 

-64/147- 



PortaFeed 
FormFeed 



FormFeed 
FormFeed 



FormFeed 
FormFeed 



FormFeed 
FormFeed^, 
FormFeed isssT 
FormFeed 
1 -FormFeed 
FormFeed 
FormFeed 
FormFeed 
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DC.B 


$00 


l 


■ 


DC.B 


•65/149 


* . FormFeed ; 




DC.B 


$00 


/ 




DC.B 


•66/151 


* , FormFeed ; 




DC.B 


$00 






DC.B 


•67/153 






DC.B 


$00 




* 


DC.B 


■68/154 


• , FormFeed i 




DC.B 


$00 






DC.B 


•69/156 


*, FormFeed i 




DC.B 


$00 


» 




DC.B 


•70/15$ 


* , FormFeed t 




DC.B 


$00 


t 




DC.B 


•71/160 


* , FormFeed i 


• ^ <?> 


DC.B 


$00 






DC.B 


•72/162 


\ FormFeed t 




DC.B 


$00 






DC.B 


•73/163 


* , FormFeed ; 




•DC.B 


$00 


t 


DC.B 


■74/165 


FormFeed t 




DC.B 


$00 


FormFeed ^ j 


DC.B 


•75/167 


- 


DC.B 


$00 


FormFeed -— i 


■ 


DC.B 


•76/169 


• 


DC.B 


$00 


1 


- 


DC.B 


•77/171 


;w FormFeed t 


- 


DC.B 


$00 


* 

•.^FormFeed j 


- 


DC.B 


•78/172 




DC.B 


$00 % 






DC.B 


fi 79/174 


• , FormFeed i 


- 


DC.B^ 


% 


; 


- 




», FormFeed / 


* 


dc.bI 

-#Dc;i^ 

^ V ^B 


% " $00 


t 


- 


$00 


FormFeed » 
f 


- 
• 


^DC.B 


•82/180 


•„ FormFeed t 


- 


DC.B 


$00 


t 


- 


DC.B 


-83/181 


FormFeed t 


• 


DC.B 


$00 


t 


- 


DC.B 


"84/183 


" , FormFeed ; 


- 


DC.B 


$00 






DC.B 


■85/185 


FormFeed / ' 




DC.B 


$00 






DC.B 


•86/187 


* , FormFeed t 




DC.B 


$00 






DC.B 


•87/189 


FormFeed ; 




DC.B 


$00 
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DC.B 


-88/190". 


FormFeed 




DC.B 


$00 






DC.B 


■89/192", 


FormFeed 




DC.B 


$00 






OilTempTbl90: 








DC.B 


■90/194-, 


FormFeed 




DC.B 


$00 






DC.B 


•91/196-. 


FormFeed 




DC.B 


$00 






DC.B 


•92/196", 


FormFeed 




DC.B 


$00 






DC.B 


"93/199", 


FormFeed 




DC.B 


$00 






DC.B 


"94/201", 


FormFeed 




DC.B 


$00 






DC.B 


"95/203", 


FormFeed 




DC.B 


$00 






DC.B 


"96/205", 


FormFeed 




DC.B 


$00 






DC.B 


"97/207". 


FormFeed 




DC.B 


$00 






DC.B 


-98/20B", 


FormFeed 




DC.B 


$00 






DC.B 


"99/210". 


FormFeed 




DC.B 


$00 






DC.B 


"1Q0/212- 


FormFeed 


; Ln20S »> 2 for LnZAdOS to 








j center the oil temp display 
;on the screen. 
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•* OilViscOisp: 



Th*ue routines displays the Oil viscosity Deviati* 
other related m* sages. 



.on when available 



ZKOJODG "AllPilesSQU.inc" 

ZDS? QilViscDisp. Division, OVRatio 

XDSP Division, Dividend!*?, DividcnrtHi , Divisor, CuotientLo, N Quoti entHi 

xrbf QVDispSca, DispBuf, DispBuf a 

XREF ClrDisp, ClrDiHpBuf , WriteData 

XSSP ViscStatus 

XRBF _lOmsDeley 

XRKy TntxTtnp 

XREP Oilltem. OilltemLast 




Define Variables <OilTempDisp) 



VerSac 

DividendLo 
OividendHi 
Divisor 
OuotientLo' 
Quotientki ' 



SECTION .^SBORT % 




DivLpCntr;. 

OVRatio 

OVTtnpl 

OVTmpl 

CounterGen 



DS.l 
DS:B 
DS.B 
- DS.B 

*• osTb 

DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 



ViscStatusLast DS.B 



OilViacDisp: 
Ida 
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be? 

CS_OVDisp: 

Ida 
ata 

LDA 
CMP 
hne 

JSR, 

JKP 
CIO OVDiSpr 
LDA 
CMP 



JMP 
aOjOVDisp: 
LDA 
CMP 
bne 
JSR 
JMP 
C30_OVDisp: 
LDA 
CMP . 
tone-, 
JSR>i 

C40_OVDisp: %. 

LDA 
CMP 
bne 
jsr 
Jap 

CSO^OVDisp: 
LDA 
CMP 
bne 
jar 
jtnp 

CfiOjOVDisp: 



OilltemLast 
CSjOVDisp 
ViscStatus 
vises tatusiast 
RjOVDisp 

Vises tatus 

ViscStatusLast /now determine which message will 
#be displayed 

ViscS tatus 
•Startup 
ClOjDVDisp 
DispOVNRA 



RjOVDisp 

ViscS tatus 
«RdOK 
C20_OVDiop 
DispVlse 

RjOVDisp 

ViscStatus 
•RdlnProe 

C30_OVDi8p s a^. 
DispOVWait''J < ' 
R-OVDiep % 

ViscStatus 
STimoout 
,;;C40_0VDisp 
DispOVTO 
RJJVDisp 

ViscStatus 

STempOutOfRng 

CS0_0VDisp 

DispOVTOR 

R_OVDisp 

ViscStatus 

aPurgeluProg 

CS0_OVDisp 

DispOVPIP 
R_OV0isp 



j display "No- Reading -Available" 
;message „ * i .y 



/display- last value of last viscosity 
/measured 

■ 3 ° 



/display 'Wait" message. 



, display •Timeout" 



/display "Temp-Out-of-Range" message 



/display "Purge -In- Prog" message 




5 : \CRODPS\BNO\PRODlC\Documentation Listings\OilViscDisp. a 



05/14/1999 14: 



CMP 
one 

C70 OVDisp: 
R_OVDisp: 



ViscStatus 
aOilPurged 

C70_OVDi6p 

DispOVOP 

R_OVDisp 



/display "Oil -Purged" message 
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STA 

CMP 

BEQ 

INCX 

JMP 



DispBuf ,X 
SFormFeed 
C2_DOVPIP 



C2 DOVPIP: 



JSR 
JSR 



WriteData 
ClrDispBuf 



* DispOVNRA • 



DispOVNRA: 



JSR 
LDX 

u 

LDA 
STA 
CMP 
BEQ 
INCX 



JSR 
JSR 



ClrDi8p 
SO 

OVNRAScrn.X 
DispBuf,X 
SFormFeed 
C2JD0VNRA 

LJDOVNRA ;> : • 

WriteData 
ClrDispBuf 



■A 



DispOVPIP 



DispOVPIP: 



JSR 
LDX 



L^DOVPIP: 
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ClrDisp 

#0 

ovpXPScm,X 



DispOVOP 



DispOVOP: 



JSR 


ClrDisp 




LDX 


#0 








• 


LDA 


OVOPScro,X i 




STA 


DispBuf ,X • 




CMP 


SFormFeed, -V«-' 




BEQ 


C2_D0V0P 




INCX 






JMP 


LJX7VOP 




JSR 


WriteData 




JSR. 


\ - .ClrDispBuf 




RTS 







DispOVTOR 



DispOVTOR: 

JSR 
LDX 

L_DOVT0R: 

LDA 

Page 4 



ClrDisp 
00 



OVTORScm.X 
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RJDOVTOR: 



STA 


DispBuf. X 

•FormPeed 


CMP 
8EQ 


C2_D0VTOR 


XNCX 
JMP 


L_DOVTOR 


li 

JSR 


VriteData 


JSR 


GrDispBuf 


t 

RTS 






OtP 
BEO 



ojdovto jsr 

JSR 

R_DOVTO RTS 



ClrDisp 
#0 

ovroscra.x 
DispBuf, x p 
apormFeed 4* 

KriteData 

t- ClrDispBuf 



/••♦Return*** 



Diepovwait 



JSR 


ClrDisp . 


LDX 


no 


LDA 


OVWaitScra,X 


STA 


DispBuf ,X 


CMP 


SFormFeed 


BEQ • 


C3JDOVN 


INCX . 
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JMP 

C2JD0VN JSR 
JSR 

R DOW: 



• DispVisc 
DispVisc- 



LDOVW 

VriteData 

ClrDispBuf 



jar 
LDX 



L DVisC: 



STA 
OtP 
BSQ 



ClrDisp 
•0 

Viscscrn.X 

DispBuf, X 
SLineFeed 
C3 DViac 



L DVisc 




O^DVisC: 




j put + or - in buffer 
; check to table Index not exceeded. 
t limit table to 128 bytes (32*4«128) 



multiple index by a 
i and then by 2 again 
iROVDispTbl offset. 



ovTmpi 



/DispBuf 2 offset. 
, ;here 0VTmpl«OVTaqpl*4 
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LDA 


RQVDispTbl.X 


LDX 


OVTmp2 


STA 


DispBuf 2, X 


CMP 


•FormFeed 


BEO 


C5_DVisc 


INC 


OVTtnpl 


INC 


OVTTrtp2 


JMP 


Ll_DVisc 


JSR 


KriteData 


JSR 


ClrDispBuf 


RTS 





/Write Display Buffer data to 

/the display. 

; Clear Display Buffer. 



Division: 16 x 8 unsigned Divide * 



/Before calling the divide routine, load dividend in DividesdJti and 
/DividendLo load the divisor in Divisor. The results, quotient and 
/remainder, will be stored in DividendBi and DividendLo, and Remainder. 



Division CLR 
LDA 
STA 



/Clear remainder. 

I 

/Loop counter for number of shifts. 



.S16.-V. 
DivLpCntr 

- w 

/Shift each byte of dividend and remainder one bit to the left. 
L_Div LDA V 



STA 
LDA 



STA 
ROL 



Dlvid( 
DividendHi 

DividendBi 
DividendLo 
DividendBi 



/Get 

/Shift Remainder msb into carry. 



/Shift dividend low byte. 
/Shift dividend high byte. 



/Shift 

/Subtract divisor from the remainder. 
Page ? 
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LDA 
SOB 
STA 
LDA 



Remainder 

Divisor 

Remainder 

DividendLo 

00 

DividendLo 



/Subtract divisor from remainder. 



/Use dividend lsb to hold the carry. 



Check dividend/quotient lsb. If clear set lsb of dividend/quotient to 
indicate the subtraction was done without borrow, otherwise add divisor 
beck to remainder. 



/Check carry from subtraction. 



LDA 


DividendLo 


AND 


#Bit0Mask 


BEQ 


C Div 


BRCLR 


O.OividendLo, C_Div 





LDA 


Remainder 




ADD 


Divisor 




STA 


Remainder 




LDA 


DividendLo 




ADC 


90 




STA 


DividendLo / 




BRA 


Cl_Div V A/' 






******* ********** 


C_Div 


LDA 


SBitOMasW "• 




ORA 


DividendLo '"' 




STA 


DividendLo 


,-CDiv 


BSET 


0, DividendLo 








Cl_Div 


DEC ■ 


DivLpCntr 




BNB 


L_Div 




LDA 


DividendLo 




STA 


OuotientLo 




LDA 


DividendBi 




STA 


QuotientBi 




RTS 




/ Define Constants 





/Carry set, add divisor back to 
/remainder. > 

/Restore lsb of DividendLo. 



/Set lsb of dividend/quotient to 



/indicate that the subtraction was 
/done without borrow. 



/Copy the quotient form 
/DividendLo/Bi to QuotientLo/Bi. 



CoastSec SECTION 



/For tables and constants. 



Appendix A 

Docket 8121-15132-CIP-COh 

Page 22 of 76 



B:\CR0OPS\KWG\PH0DlC\Documeiication Li8tinga\0ilViicDi«p 



05/14/1999 14 i 



DC.B 
DC.B 



DC.B 
DC.B 



DC.B 
DC.B 



DC.B 
DC.B 



- Vise not available ". LineFeed 



• viae not available • 
■Purge/Prime in prog ' 



• Vise not available ' 
•Ho test since Purge ' 



• vise not available 1 

• Viscostecer timeout ' 



UneFeed 



DC.B 
DC.B 



DC.B 
DC.B 



OvrORScro 
OVWaitScxn 
ViscScxn 

, Relative Oil Viscosity Displayn^oR" Op Table 
ConstSec 
ROVOispTbl 



LineFeed 
LinePeed . 



• Vise not available 

• Temp out o£ range ' „ _ v 

•Vise test in progres" , LineFeed 1* " 

• Kait up to 2 tain iermpeed^ 

% 9 

"Oil vise Deviation! ", tiiePeed ,011 Relative 

;Butaidity display 



DC.B »\ % m 0* ", FormFeed 
DC.B~> ^^.^n* FormPeed 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



"2% ", FormPeed 

"3% ", FormFeed 

■4% FormPeed 

•5% FormPeed 

"6% ", FormPeed 

•7% FormPeed 

•a% FormPeed 

"9t FormPeed 

•10%", FormPeed 

■11%", FormPeed 

•12%", FormPeed 

"13%", FormPeed 

"14%", FormPeed 

"15%", FormPeed 

•16%", FormFeed 

■17%", FormPeed 
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FormPeed 






FormPeed 


DC.B 


"20%* , 


FormPeed 


DC.B 


"21%* , 


FormPeed 






FormFeed 


DC.B 


•23%"! 




DC.B 


•24%'. 


FormFeed 


DC.B 


"2S%" , 




DC.B 


•2G%", 


FormPeed 


DC.B 


"27%*, 


FormPeed 






FormFeed 






_ _ . 
JrOrmjreeQ 




..... 


Form* ©ec 










•32%"' 


FormFeed 


DC B 


"33%", 


FormFeed 


DC.B 


"34f. 


FormFeed 


DC.B 


"35%", 


FormFeed 


DC.B 


•3«%", 


FormPeed 


DC.B 


•37%", 


FormFeed a 


DC.B 


•38%", 


FormPeed $ 


DC.B 


■39%',<FormPeedr r 


DC.B 


M0%"- G 


FormFeed 
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> OilLifeDisp: 



INCLDDS •AllPilesEQO.inc" 



OilLifeDisp 




XRBF OLDiSpSta, DiSpBuf 

XREP drOisp. ClrDispBuf , KriteData 

XRKF OLCurrentHi, OLCurrentLo *» 

XRBF Division, Divid endH i ^^Bivid cnd Lo, Divisor 

XREF Oilltetn. OilltemLest 4 ~ 



i Define variables (OilTenipDisp: 
varSec section 



OilLifeO DS.b ,^-11, 

o 'I 

TfcpHi DS.B "ij^s* 
TtnpLo DS.B" 




t Storage for relative humidity 
; currently been displayed. 



CodeSec 



OilLlfeDisp: 
Ida 



jmp 
Cl5_0LDi8p: 



Oilltem 
OilltemLast 
ClSjOLDisp 
R OLDisp 



ClrDisp 



idear display and set DO RAM 
i address counter to point to the 
i first location of line 1 on the 
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LjOLDisp: 



LDA 
STA 
CMP 
ESQ 



d_OIDiap: 



bpl 

Ida 
sub 
ata 
Ida 
she 
8ta 

Idx 
Ida 
sta 
inoc 
Ida 
sta 
incx 
Ida 
sta 
incx 
Ida . 
^sta r 

incx 
v lda 
sta 
incx 
Ida 
sta 
incx 
Ida 
sta 

C2 OLDisp: 

Ida 



OilLifeScro.x 

DispBuf.x 

•Fon&Feed 

CljOtDiSp 
LjOLDisp 



C3_0LDisp 



OLCurrentLo 
OLCurrentLo 
90 



idisplay 



{Transfer relative humidity Display 
«screen line 1 content to Display 
tBuffer. 



{Calculate 100s digit for display 
{ft of days currently remaining 
{before oil change 
j if neg. then this is "'number 3» 
lOf days past scheduled* oil change 



»11 & 
DispBuf.xV 



ft $71 

:\ DispBuf.x 



• $74 

DispBuf.x 



«$20 

DispBuf.x 



• $20 

DispBuf,X 



o$ao 

DispBuf,X 



OLCurrentHi 
ft! 



{see if ft of days remaining 
; (or past) is > 999 
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bhi 


CLOjOLDisp 




bio 


C20~OLDisp 




Ida 


OLCurrentLo 






#$E7 


/see if # of days remaining 






i <or past) is > 999 


bhi 


CIO OLDisp 




bis 


C20jOLDisp 




CLO OLDisp: 






Idx 


82 




Ida 


#$2D 


t ... 


sta 


DispBuf.X 




incx 






Ida 


#$2D 




Sta 


DispBuf.X 




incx 






Ida 


#$2D 


.... " 


sta 


DispBuf.X 




jmp 


C100_OLDisp 




C20 OLDisp: 






Ida 


OLCurrentHi 




sta 


DlvldendHi 




Ida 


OLCurrentLo 




sta 


DividendLo 




Ida 


#100 




sta 


Divisor 


% divide by 100 to get •Hundreds" 




• V : - 


{digit for display 




Division >?V 




{ 

Idx 


62 ""V- 




Ida . r 


DividendLo 




*<w ., 


»$3d 


; make ASCII 


sta 

{ '* v.. 


DispBuf.x 


;put in display buffer 


sub 


»S30 


{Change back to hex 


<- -Vadx 


0100 




-mul 






sta 


TtnpLo 




stx 


Top Hi 




Ida 


OLCurrentLo 




sub 


TtnpLo 




sta 


OLCurrentLo 




Ida 


OLCurrentHi 




sbc 


TmpHi 




sta 


OLCurrentHi 




*•** now calculate 


tens digit for display •••• 


Ida 


OLCurrentHi 


{ft of days currently remaining 
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j before oil change 



sta 


DlvidendHi 


Ida 


OLCurrentLo 


sta 


DividendLo 


Ida 


«10 


sta 


Divisor 


jsr 


Division 


Idx 


#3 


Ida 


DividendLo 


add 


#$30 


sta 


DispBuf.x 


sub 


#$30 


Idx 


#10 


mul 




sta 


TmpLo 


stx 


Trap Hi 


Ida 


OLCurrentLo 


sub 


TtnpLo 


sta 


OLCurrentLo 


Ida 


OLCurrentHi 


sbc 


TmpHi 


sta 


OLCurrentHi 


{ 

Idx 


*« *C 4 


Ida 


OLCurrentLo 


add 


»$30% 


sta 


.f"? DispBuf.x 


C100_OLDisp: 


JSR 


• WriteData 


■ ? "JSR " 


ClrDispBuf 


R OLDisp: 




-RTS 





Define Constants 



Const Sec SECTION 



{divide by 100 to get "Hundreds" 
{digit for display 



{Offset into display buffer 



{make ASCII 

/put in display buffer 



{Change back to hex 



.-make into ASCII 



{Write Display Buffer data to 

{the display. 

{Clear Display Buffer. 



{For tables and constants. 



OilLifeScm: 
DC. 8 



Days to next 



{Oil Relative 

i Humidity display 

{line 1 string. 
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OilRHD isp : 



,ttli routine cakes the oil relative tumidity reading scored in a buffer 
/by ADConvert routine and display the relative humidity on the screen. 



INCLUDE •AllPiles&QU.lnc* 




OilRHDiSp, OilRHD 
OilBIITempCOmpTbl, 0ilRHTabl«25 . , 

Tmpl, Tmp2, DispBuf. DiiipBuf l^ORHDii 
OilRHBuf, OilRHTempBuf , % 
ClrDisp, ClrDispBuf. VriteDataOS?' WriteData 
Ln20S 

Oil! tea, OilltemLascl 



Define variables (OilTempDisp) 



SHORT 1^ 

BS.B £ ^ 1 

ORHDFilterCnt t ds.b l 
OilRHComp > fistB 1 




OilRHD 



i Storage for relative humidity 
/currently been displayed. 



OtlRKDisp : 



LDX 
LDA 
STA 
LDX 



LDA 
ADD 
STA 



OilRHBuf 

OilRHTable25,x 

OilRHComp 

OilRHTetnpBuf 



Oi lRHTempCoropTbl , X 
Oil 
Oil 
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CjOHHDisp: 



d_OHHDiap: 



CMP 
BPL 



Oi litem 

OilltemLast 

CljORBDisp 

•10 

ORHDFilterCnt 
C2j0KflDisp 



OilRHD 
«1 

OilRHComp 
C2_CRHDisp 
OilRHD 
81 

OilRHComp 
C3 ORHDisp 

ORHDFilterCnt 

R_ORHDisp 



C2_ORHDisp: ^ 
LDA. 
CMP 
BPL 
INC 



C3_OAHDisp: 



lis still active (for next cycle), 
i Since relative humidity display 
i0 was just selected, set 
i (ORHDFilterCnt) to ten so that 
i (OilRHD) can be updated and 
/displayed right away. 

» The raw oil relative humidity 

/reading from A/D converter .is -v 

/stored in OilRHBuf and .the -relative 

/humidity temperature^ sensor ' 

/reading from A/D converter is 

/stored in OjLlRHTempBuf ' Temperature 

/compensated relative humidity is 

/stored in OilRHCaop. The contenC of 

, OilRHCotnp ia?copled to OilRHD only if 

/(OilRHComp) la changed 

/ by Boore^than i% and 

/(ORHDPiltercnt) -10. Every time the 

, subroutine is executed, 

> (ORHDFilterCnt) is cleared if 

/ (OilRHComp) is not changed for more 

/than ♦/- 1% from (OilRHD). 

/otherwise (ORHDFilterCnt) is 

/ incremented by one. when 

/(ORHDFilterCnt) reaches ten, (OilRHD) 

/is updated and output Co 

/the display and (ORHDFilterCnt) is 

/cleared. 



ORHDFilterCnt 
010 

C3 w 0RHDi sp 
ORHDFilterCnt 
R_ORHDisp 



LDA 
STA 



i (ORHDFilterCnt) < 10. 
/(ORHDFilterCnt) ♦ 1, exit and no 
/output to the display. 

ORHDFilterCnt /if (ORHDFilterCnt-10) , Clear Pi IterCnt 

/and update OilRHD. 

Oi: 

OilRHD 
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JSR 


ClrDisp 


/Clear display and set DD Ram address 






/counter to point to the 






/first location of line 1 on the 






/display. 


LDX 


#0 




L_ORRDisp: 






LDA 


OilRRScrn.X 


/Transfer relative humidity Display 


STA 


DispBuf ,X 


/screen line 1 content to Display 


CMP 


SLineFeed 


/Buffer. 


BEQ 


C4_ORKDisp 




INCX 






JMP 


L_ORHDisp 




C4 ORHDisp: 






LDA 


OilRHD 


/The relative humidity to' be 


TSTA 




/displayed is stored in OilRHD. If the 


BMI 


C4a_0RHDisp 




/relative humidity is below 40%, 






/"Below 40%" will be displayed on line 






/2 if over 80%. "Over 80%" will be 






; displayed. Else, the relative 






/humidity will be displayed in 1% 






/ increment . 


CMP 


#40 


. /Test -if relative humidity is < 40%. 


BPL 


CSjORHDisp 4% 


/Branch if >- 40%. 


C4a_ORHDisp: 






LDX 


«0 ; C^'v\. 


/Relative humidity < 40%, display 




'• 


/"Below 40%" on line 2. 


Ll_0RHDi3p : 




■~ LDA 


OilRHBelow40,X /Transfer "Below 40%* to DispBuf 2 


STA 


,S' DispBuf 2, X 


/for displaying on line 2. 


CMP 


- SFormFeed 




beq., 


..C€_0RBDisp 




INCX . 






JMP'--'-: 


Ll_ORHDisp 




C6_ORHDlsp: %\ 






JSR 


writeData 


/write Display Buffer data to the 






/display. 


JSR 


ClrDispBuf 


/Clear Display Buffer. 


JMP 


R_ORHDisp 


/Return. 


C5_0RHDisp: 






CMP 


880 


/Test to see if relative humidity 


BLS 


C7_ORHDisp 


/Branch if <- 80%. 


LDX 


80 


/Relative humidity > 80%, display 






/"Over 80%" on line 2. 


L2_0RHDisp: 






LDA 


OilRHOverao.X 


/Transfer "Over 80%" to DispBuf 2 
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STA 

CMP 

BEQ 

INCX 

JMP 

C8_ORHDisp : 
JSR 
JSR 
JMP 

C7_0RHDi6p : 
LDA 
SUB 
LSLA 
LSLA 
STA 
LDA 
STA 

L3_ORHDisp: 
LDX 
LDA 
INCX 
STX 
LDX 
STA 
INCX 
STX 



DispBuf 2.X 

SForraFeed 

C8_ORHDisp 

L2_ORHDisp 

WriteData 

ClrDispBuf 

R_ORHDisp 

OilRHD 
«40 



Turpi 

OilRHDispTbl , 

Tmpl 
Tmp2 

DispBuf 2, X 
Ttnp2 

SFormFeed 
L3_ORHDisp 



• w 

:■' LDX 
STX 



R_ORHDisp : 



j Define Constants 



ft$80 
Ln20S 



writeoataos 
ClrDispBuf 



/for displaying on line 2. 



/Write Display Buffer data to display. 

,-Clear Display Buffer. 

jReturn. 

/40% »< relative humidity <» 80%. 
/display the relative humidity. 
/ (OilRHD) - relative humidity (%) . 
/OilRHDispTbl tabulates dispay strings 



;for relative humidity. Each block 
/contains four bytes of data. After 
/these four instructions, the 
/accumulator content (A) is the offset 
/of the string from OilRHDispTbl 
/to the relative humidity stored in 

/OilRHD. 

/In order to display the relative 
/humidity at the center of line 2. 
/the starting location of the string 
/should be 9th location of line 2 
/ (line 2 offset, Ln20S - 9) . 
/Write Display Buffer data to display 
/with line 2 offset of 9. 
/Clear Display Buffer. 
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Oil Humidity: 



OilRHBelmrtO DC.B 
OilHHDverBO DC.B 



Relative Humidity Sensor 



B«low 40% 
Over 00% 



LineFeed ,Oil Relative 

i Humidity display 
# line 1 string. 



>, FormFeed 
Lookup Table (25 degree C) 



lADConvert routine stores the reading from Relative Huraidity/iSenaor In 
j the buffer OilRHBuf . ^%&*3?* 
iThe following table. OilR8Table25, converts the conterit^of^OilRHBuf to 
/relative humidity as if the humidity was measured at 2 5 ^degree C. The 
i relative humidity temperature compensation table ^OilRHTempOornpTbl is for 
i temperature compensation due to temperature variation. 



OilRH <*) (OilRHBuf ) 



OilRHTableSS: 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



35 
35 



^lO^OllRH 

'"ww * oiiRH 
V.* oiiRH 



DC,B / 'J%^49 
DC . B • \\ 50 



DC.B 




Si 


DC^B 




52 


DC.B 




S3 


DC.B 




54 


DC.B 




54 


DC.B 




5S 


DC.B 




56 


DC.B 




57 


DC.B 




57 


DC.B 




58 


DC.B 




58 


DC.B 




59 


DC.B 




59 



|3, 
|4. 
|S, 
,6. 
;7, 
;8. 
|9. 

|B. 
,C, 
;D, 
;E. 
jF. 



OilRH 
OilRH 
OIIRH 
OilRH 
OilRH 
OilRH 
OilRH 
OilRH 
OilRH 
OilRH 
OilRH 
OilRH 
OilRH 



• 


25 deg 


ree C: 


35* 


• 


25 deg 


ree C: 


35% 


• 


25 deg 


ree C: 


40% 


• 


25 degree C: 


43% 


• 


25 deg 


ree Ct 


45% 


• 


2S deg 


ree C: 


47% 


• 


25 deg 


ree C: 


49% 


• 


25 deg 


ree C: 


50% 


• 


25 deg 


ree C: 


51% 


• 


25 deg 


ree C: 


52% 


• 


25 deg 


ree C: 


S3% 


• 


25 deg 


ree C: 


54% 


• 


25 deg 


ree C: 


54% 


• 


25 deg 


ree C: 


55% 


• 


25 deg 


ree C: 


56% 


• 


25 deg 


ree C: 


57% 



,10, OilRH • 25 
111. OilRH • 25 
j 12, OilRH • 2S 

1 13, OilRH • 25 

1 14, OilRH • 2S 



C: 57% 
C: 58% 
C: 58% 
C: 59% 
C-. 59% 
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DC.B 


60 


;15, 


OilRH 


• 25 degree Ci 


60%- 


DC.B 


CI 


,16. 


OilRH 


• 25 


degree C: 


61% 


DC.B 


61 


/17, 


OilRH 


S 25 


degree C- 


61% 


DC.B 


62 


(IB. 


OilRH 


• 25 


degree Ci 


62% 


DC.B 


62 


/19. 


OilRH 


• 25 


degree C. 


62% 


DC.B 


63 


;1A, 


OilRH 


• 25 


degree C: 


63% 


DC.B 


63 


/IB, 




• 25 


degree C: 




DC.B 


63 


ilC, 


OilRH 


• 25 


degree C: 


63% 


DC.B 


64 


/ID. 


OilRH 


• 25 


degree C: 


64% 


DC.B 


64 


as. 


OilRH 


• 25 


degree C: 


64% 


DC.B 


64 


zip. 


OilRH 


• 35 


degree C: 


64% 


DC.B 


65 


|20. 


OilRH 


• 25 degree C: 


65% 


DC.B 


65 


|21. 


OilRH 


• 25 degree C 


65%^ 


DC.B 


65 


|22. 


OilRH 


• 25 degree Cs 


65% V § 


DC.B 


65 


123, 


OilRH 


• 25 


degree C: 


65%S 


DC.B 


66 


»24. 


OilRH 


• 25 


degree rc: 




DC.B 


66 


/25. 


OilRH 


• 25 degree :C: 


66%* 


DC.B 


66 


»26. 


OilRH 


• 25 


degree C: 


6*6% 


DC.B 


66 


/27, 


OilRH 


• 25 


degree- Ct 


66% 


DC.B 


67 


)28. 


OilRH 


• 25 


degr ee C: 


67% 


DC.B 


67 


>29. 


OilRH 


• ^25 .degree C 


67% 


DC.B 


67 


|2A, 


OilRH 


• is 'degree C: 


67% 










• 25 


degree C: 




DC.B 


68 


|2C. 


OilRH 


• 25 


degree C: 


68% 


DC.B 


68 


^»2D. 


OilRH 


• 35 


degree C 


68% 


DC.B 


68 


"V/2B. 


OilRH 


• 25 


degree C: 


68% 


DC.B 


68 


4 |2F. 


OilRH 


• 25 


degree Ci 


68% 


DC.B 




|30, 


OilRH 


• 25 


degree C: 


69% 


DC.B ^ 


6? 


111. 


OilRH 


• 25 


degree C: 


69% 


DC.B 


-»"^69 


i32, 


OilRH 


• 25 


degree Cs 


69% 


DC .Bp 


v "69 


>33, 


OilRH 


• 25 


degree C: 


69% 


DC.B^V 


70 


134. 


OilRH 


• 25 


degree C» 


70% 


dc:b 


70 


»3S, 


OilRH 


• 25 


degree C: 


70% 


DC.B 


70 


,36, 


OilRH 


• 25 


degree C: 


70% 


DC.B 


70 


»37. 


OilRH 


• 25 


degree C: 


70% 


DC.B 


70 


,38, 


OilRH 


• 25 


degree C: 


70% 


DC.B 


71 


|39. 


OilRH 


• 25 


degree C: 


71% 


DC.B 


71 


,3A, 


OilRH 


• 25 


degree C: 


71% 


DC.B 


71 


,3B, 




• 25 


degree C 




DC.B 


71 


/3C, 


OilRH 


• 25 


degree C: 


71% 


DC.B 


71 


,3D. 


OilRH 


• 25 


degree C 


71% 


DC.B 


71 


j3B. 


OilRH 


• 25 




71% 


DC.B 


71 


»3F. 


OilRH 


• 25 


degree C 


71% 


DC.B 


72 


;40, 


OilRH 


• 25 


degree C: 


72% 
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DC.B 


72 


|4I, 


OilRH 


• 


25 


degree 


C: 


72% 


DC.B 


72 


;42. 


OilRH 


0 


25 


degree 


C: 


72% 


DC.B 


72 


>43. 


OilRH 


• 


25 


degree 


C: 


72% 


DC.B 


72 


;44, 


OilRH 


• 


25 


degree 


C: 


72% 


DC.B 


72 


;4S, 


OilRH 


• 


25 


degree 


C: 


72* 


DC.B 


72 


;46. 


OilRH 


• 


25 


degree 


C: 


72% 


DC.B 


73 


;47. 


OilRH 


0 


25 


degree 


C: 


73* 


DC.B 


73 


f48. 


OilRH 


0 


25 


degree 


C: 


73% 


DC.B 


73 


;49, 


OilRH 


0 


25 


degree 


C: 


73* 


DC.B 


73 


;4A, 


OilRH 


0 


25 


degree 


C: 


73% 


DC.B 


73 


;4B. 


OilRH 


0 


25 


degree 


C: 


73* 


DC.B 


73 


/4C, 


OilRH 


0 


25 


degree 


C: 


73% 


DC.B 


73 


;4D, 


OilRH 


0 


25 


degree 


C: 


73* 


DC.B 


74 


ME. 


OilRH 


O 


25 


degree 


C: 


74% 


DC.B 


74 


><F. 


OilRH 


0 


25 


degree 


C: 


74% v 


DC.B 


74 


»50, 


OilRH 


0 


2S 


degree 


C: 


: .74*\ ' 


DC.B 


74 


|51. 


OilRH 


0 


25 


degree 


C: 


74% 


DC.B 


74 


|S2. 


OilRH 


0 


25 


degree 


C: 


74% 


DC.B 


74 


;53. 


OilRH 


0 


25 


degree 


C: 


74% 


DC.B 


74 


;54. 


OilRH 


0 


25 




C: 


74% 


DC.B 


74 


,SS, 


OilRH 


0 


25 


degree 


C: 


74% 


DC.B 


75 


,S6. 


OilRH 


0 


25 


degree 


C: 


75* 


DC.B 


75 


,57. 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 


75 


»S8. 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 


75 


|59, 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 


7S 


^/5A, 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 


75 


/5B, 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 


75 


|5C. 


OilRH 


m 


25 


degree 


C: 


7S% 


DC.B 


^•75 ,/ 


/5D. 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 


75 


f5E, 


OilRH 


0 


25 


degree 


C: 


75% 


DC.B 




/5F, 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B' 


76 


|60, 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


r61. 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


|62, 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


;61. 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


,64, 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


;65, 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


|66, 


OilRH 


e 


25 


degree 


C: 


76% 


DC.B 


76 


/67. 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


76 


,68, 


OilRH 


0 


25 


degree 


C: 


76% 


DC.B 


77 


»69, 


OilRH 


0 


25 


degree 


C: 


77% 


DC.B 


77 


;6A, 


OilRH 


0 


25 


degree 


C: 


77% 


DC.B 


77 


,6B. 


OilRH 


0 


25 


degree 


C: 


77% 


DC.B 


77 


/6C, 


OilRH 


0 


25 


degree 


C: 


77% 


DC.B 


77 


,6D, 


OilRH 


0 


25 


degree 


C: 


77% 
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DC.B 


77 


;6E. 


OilRH 1 


> 25 degree 


C: 


77* 


DC.B 


77 


;6F. 


OilRH « 


1 25 degree 


C: 


77% 


DC.B 


77 


;70. 


OilRH < 


1 25 degree 


C: 


77% 


DC.B 


77 


/71, 


OilRH i 


1 25 degree 


C: 


77% 


DC.B 


77 


.72, 


OilRH < 


I 25 degree 


C: 


77% 


DC.B 


77 


/73. 


OilRH « 


» 25 degree 


C: 


77* 


DC.B 


78 


,74. 


OilRH « 


t 25 degree 


C: 


78* 


DC.B 


78 


,75. 


OilRH < 


1 25 degree 


C: 


76* 


DC.B 


78 


,76. 


OilRH « 


l 25 degree 


C: 


78* 


DC.B 


78 


;77, 


OiiRH 1 


I 25 degree 


C: 


78* 


DC.B 


78 


,78. 


OilRH < 


> 25 degree 


C: 


78* 


DC.B 


78 


;79, 


OilRH i 


» 25 degree 


C: 


78% 


DC.B 


78 


,7A. 


OilRH < 


I 25 degree 


C: 


78%, 


DC.B 


78 


,7B. 


OilRH < 


I 25 degree 


C: 


70% £ 


DC.B 


78 


;7C. 


OilRH < 


» 25 degree 


C: 


70% T, J : 


DC.B 


78 


,7D. 


OilRH < 


1 25 degree 


C: 


78% , 


DC.B 


78 


,7E, 


OilRH < 


» 25 degree 


C: 


78 % ; 


DC.B 


78 


/7F. 


OilRH < 


» 25 degree 


C: 


78% 


DC.B 


78 


|80. 


OilRH t 


» 25 degree 


C: 


78% 


DC.B 


78 


»81. 


OilRH t 


» 25 degree 


C: 


78% 


DC.B 


79 


;82, 


OilRH t 


l 25 degree 


C: 


79% 


DC.B 


79 


;83, 


OilRH. 1 


I 25 degree 


C: 


79% 


DC.B 


79 


/84. 


OilRH < 


1 25 degree 


C: 


79% 


DC.B 


79 


/8S, 


OilRH < 


> 25 degree 


C: 


79% 


DC.B 


79 


,/86. 


OilRH < 


» 25 degree 


C: 


79% 


DC.B 


79 


/87. 


OilRH « 


I 25 degree 


C: 


79% 


DC.B 


79 


,88. 


OilRH < 


» 25 degree 


C: 


79% 


DC.B 


79 


;89, 


OilRH 1 


» 25 degree 


C: 


79* 


DC.B 


79 


,8A. 


OilRH t 


l 25 degree 


C: 


79% 


DC.B 


• J? 9 


/ SB. 


OilRH t 


I 25 degree 


C: 


79% 


DC.B 


79 


/8C. 


OilRH 1 


> 25 degree 


C: 


79* 


DC.B 


79 


,8D. 


011RH « 


► 2 5 degree 


C: 


79% 


DC.B 


79 


,8E. 


011RH < 


> 25 degree 


C: 


79% 


DC.B 


79 


,8F. 


OilRH < 


> 25 degree 


C: 


79% 


DC.B 


79 


<90. 


OilRH < 


1 25 degree 


C: 


79% 


DC.B 


79 


111. 


OilRH 4 


l 25 degree 


C: 


79% 


DC.B 


80 


,92, 


OilRH t 


> 25 degree 


C: 


80% 


DC.B 


80 


;93. 


OilRH 4 


> 25 degree 


C: 


80% 


DC.B 


80 


/94, 


OilRH t 


» 25 degree 


C: 


60* 


DC.B 


80 


|95, 


OilRH 4 


1 25 degree 


C: 


80* 


DC.B 


00 


,96, 


OilRH « 


l 25 degree 


C: 


80* 


DC.B 


80 


i97. 


OilRH 4 


1 25 degree 


C: 


00* 


DC.B 


80 


/98, 


OilRH i 


I 25 degree 


C: 


00* 


DC.B 


00 


/99. 


OilRH 4 


> 25 degree 


C: 


00* 
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DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 

DC.B ei 

DC.B 81 

DC.B 81 

DC.B 81 
DC.B A | 81 

DC B % 82 



80 
10 
80 
80 
80 
80 

80 

80 
SO 
80 

81 
81 
81 
81 
81 
82 
81 
81 
81 
82 
81 
81 

81 
81 



,^DCiB^ 

^DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



82 
82 
82 
82 
82 
82 
82 

82 
82 
82 
82 
82 
82 



|9B, OilRH** 23 
>9D ( 

j 98, OilRH • 2S 
l9P. OilRH • 25 



40% 

Ct 80% 

OilRH • 25 degree Ct 80% 
OllRH • 25 degree C: 80% 
Ct 80% 
Ct 80% 



lAO. OilRH • 25 

;A1, OilRH • 25 

jJtt, OilRH • 25 

j JO, OilRH • 25 

jM. OilRH • 25 

/AS, OilRH • 25 

I AS. OilRH • 25 

/A7, OilRH » 25 

jA8, OilRH • 25 

/A9, OilRH • 25 

;AA, OilRH • 25 

,AB, OllRH * 25 

j AC, OilRH • 25 

/AD, OilRH • 25 

j AS, OilRH • 25 

lAP, OilRH # 25 

; B0. OilRH • 25 
OllRH • 25 
I B3,* OilRH • 25 

;B3, OilRH • 25 

iB4. OilRH • 25 

iB5. OilRH • 25 

,BS, OilRH • 25 

,B7. OilRH • 25 

,B8, OilRH • 25 

;B9. OilRH • 25 

iBA, OilRH • 25 

IBB, OilRH • 25 

iBC, OilRH t 25 

I BO. OilRH • 25 

j BE. OilRH • 25 

|BF. OilRH • 25 



C: 

degree Ct 

Ct 
C: 
C: 
Ct 
Ct 
C: 
Ci 

C:. 
C: 
C: 
Ci 
C: 



degree C: 

C: 
Cs 
C: 
C: 
C: 
C: 
C: 
C: 
C: 
C: 
C: 
C: 
C: 
C: 
C: 



80% 
80% 
80% 
80% 
81% 

•1% Ji?± 
81%^ v? 
81% 4*>* 

«*» 

81% 

81% 

81% 

61% 

81% 

81% 

81% 
81% 
81% 
81% 
81% 
81% 
81% 
82% 
82% 
82% 
82% 
82% 
82% 
82% 
82% 
82% 



OilRH • 25 
OilRH • 25 
OilRH • 25 
;C3. OilRH • 2S 
IC4, OilRH • 25 
,CS. OilRH • 25 



/CO, 
»C1, 
;C2. 



C: 82% 
C: 82% 
C: 82% 
C: 82% 
C: 82% 
C: 82% 
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;C6, 
/C7. 
;C8, 
|C9, 
/CA, 
ICB, 
,CC. 
I CD, 
;CB, 
/CP. 



"oTTrh" 

OllRH 
OllRH 
OilRH 



OllRH 
OllRH 
OilRH 
OllRH 
OilRH 



/DO. OllRH 
;D1, OllRH 
/D3, OilRH 
;D3, OilRH 
,D4, OilRH 
/D5. OllRH 
IDS. OilRH 
lD7. OllRH 
iD8, OilRH 
#D9, OilRH 
,DA, OilRH 
;DB, OllRH 
/DC.^OllRH 
/DD.^OllRH 
IDE.. OilRH 
rDP.^OHRH 

j V B0. OilRH 

,B1. OilRH 

;E2, OilRH 

;B3. OilRH 

/B4, OilRH 

f B5, OilRH 

/B6. OilRH 

,E7, OllRH 



/B9. OilRH 
/EA, OilRH 
;EB, OilRH 
l SC. OilRH 
j ED, OllRH 
IBS, OilRH 
IBP. OilRH 

jFO. OilRH 
I PI. OilRH 



25 degree C 
35 degree C 
25 degree Cj 
35 degree Ci 
25 degree Ci 
25 degree Ci 
25 degree C; 
25 degree C 
35 degree d 
35 degree C 



35 degree C 
35 degree C 
35 degree C 
35 degree c 
35 degree c 
25 degree^Ci 
35 degree^ 
35 degreeV 
35 degref C 
25 degree C 
.,.35 degree C 
• .3 5 l degree C 
25 degree C 



2% 
3% 
3% 
2% 
3% 
3% 
3% 
3% 
3% 
3% 

3% 
3% 
3% 

»■> 

,3% -fijj^ 
i* . 
3% 
1% 
83% 
3% 
3% 
3% 
3% 
3% 
3% 
3% 

3% 
3% 
3% 
3% 
3% 
4% 
4% 
4% 
4% 
4% 
4% 
4% 
4% 
4% 
4% 
4% 

4% 
4% 
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DC.B 84 


,F2, 


OilRH • 25 degree C: 


84% 


DC.B 84 


»F3. 


OilRH • 25 degree C; 


84% 


DC.B 84 


/F4. 


OilRH • 25 degree C : 


84% 


DC.B 84 


;FS, 


OilRH e 25 degree Ci 


84% 


DC.B 84 


tF6, 


OilFM « 25 degree Ct 


84% 


DC.B 84 


»F7. 


OilRH • 25 degree C : 


84% 


DC.B 84 


iF8, 


OilRH • 25 degree Ci 


84% 


DC.B 84 


jF9. 


OilRH • 25 degree C : 


84% 


DC.B 85 


jFA. 


OilRH 0 25 degree Ci 


85% 


DC.B 85 


fFB, 


OilRH e 25 degree Ci 


85% 


DC.B 85 


iFC, 


OilRH • 25 degree C: 


85% 


DC.B 85 


;FD, 


OilRH e 2 5 degree C: 


85% 


DC.B as 


;FE. 


OilRH • 25 degree C: 


85% 


DC.B 85 


;FF 


, filler 




i Relative Humidity sens< 


x Temperature Compensation Table 




iThe value obtained from the following relative humidity compensation 


i table is added to the the relative humidity derived from the above table. 


iOilRHXable2S, to obtain the acture actual relative humidity. The 


i temperature measured on 


the humidity sensor is stored in OilRHTenpBuf . f 


lOilRHTempBuf content is 


used as offset to fetch the ami 


aunt of 


/compensation from OilRHTempCocnpTbl . Observe that the compensation for 


/temperature 37 degre 


s C is in two's complement. The compensated 


/relative humidity is stored in OilRHCccnp. 




/ Compensation <%> (OilRBTempBuf ) 












Ol iRHTempCompTbl DC . B 


56 


i0 degree C 




S7 


/I degre 


s C 


% DC.B 


57 


i 2 degre 


9 C 


DC.B 


57 


/3 degre 


» c 


DC.B 


$7 


i 4 degre 


B C 


DC.B 


$6 


;5 degre 


3 C 


DC.B 


$6 


i 6 degre 


e C 


DC.B 


56 


»7 degre 


B C 


DC.B 


55 


;8 degre 


a C 


DC.B 


55 


/9 degre 


B C 


DC.B 


55 


i 10 degre 


B C 


DC.B 


S4 


;11 degre 


B C 


DC.B 


$4 


;12 degre 


B C 
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DC.B 


$4 


;13 


degree C 


DC.B 


S3 


/14 


degree C 


DC.B 


$3 


/IS 


degree C 


DC.B 


53 


|16 


degree C 


DC.B 


$2 


/17 


degree C 


DC.B 


$2 


/IS 


degree C 


DC.B 


$2 


;19 


degree C 


DC.B 


$2 


/20 


degree C 


DC.B 


$1 


121 


degree C 


DC.B 


$1 


/32 


degree C 


DC.B 


51 


/31 


degree c 


DC.B 


$0 


;24 


degree C 


DC.B 


SO 


/35 


degree C 


DC.B 


$0 


|2S 


degree C, 


DC.B 


$PF 


/27 


degree C, - 


DC.B 


$FF 


|38 


degree C 


DC.B 


$PF 


,29 


degree C " 


DC.B 


SPB 


/10 


degree C 


DC.B 


$FE 


/31 


degree C 


DC.B 


$FB 


- i32 


degree C 


DC.B 


$FE „_ H ' 


>33 


degree C 


DC.B 


SFD '\. 


/34 


degree C 


DC.B 


**> ? ^ 


/35 


degree C 


DC.B 




»36 


degree C 


DC.B 


'c-'src. * 


;37 


degree C 


DC.B 


SPC 


;38 


degree C 


DC.B ?■ 

. 


,- SFC 


/39 


degree C 


DC: 8 


SFB 


/40 


degree C 


DC;B,^T 


SFB 


/41 


degree C 


DC.B 


$FB 


/43 


degree C 


DC.B 


SPA 


143 


degree C 


DC.B 


$FA 


144 


degree C 


DC.B 


Spa 


MS 


degree C 


DC.B 


$P9 


;46 


degree C 


DC.B 


$F9 


/47 


degree C 


DC.B 


$F9 


;48 


degree C 


DC.B 


$P9 


;49 


degree C 


DC.B 


$F8 


/50 


degree C 


DC.B 


SF8 


;S1 


degree C 


DC.B 


SF8 


;52 


degree C 


DC.B 


$P7 


jS3 


degree C 


DC.B 


SF7 


/54 


degree C 


DC.B 


$F7 


ISS 


degree C 



complement 
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DOB 




. $F6 






,56 


degr*. C 


• 






DC.B 




$F6 




• 


*57 


degree C 


• 






DC.B 




$F6 






138 


degree C 


■ 






OC.B 




BPS 






,S9 


degree C 


- 






DC.B 




BPS 






ISO 


degree C 


• 






DC.B 




$P5 






|61 


degree C 


■ 






DC.B 




$F5 






;62 


degree C 


• 






DC.B 




$P4 






*63 


degree C 








DC.B 




$F4 






*64 


degree C 








DC.B 




$P4 






/65 


degree C 








DC.B 




$F3 






,66 


degree C 


• 






DC.B 




$P3 






|67 


degree C 








DC.B 




$F3 






,ea 


degree C 


%3 






DC.B 




$P2 






»69 










DC.B 




$F2 






;70 










DC.B 




$F2 






*71,.. 


degree|p 


• 






DC.B 




SF1 








degree'C 








DC.B 




$F1 








degree c 








DC.B 




$F1 






,74 ^degree C 








DC.B 




$F0 




1,75 


degree C 


■ 






DC.B 




$F0 




fe 


V7S 


degree C 


• 






DC.B 




$P0 






J 77 


degree C 


• 






DC.B 




$P0 






>7B 


degree C 








DC.B 




e*V$BP: 






|79 


degree C 


• 






DC.B 




''SEP 






,80 


degree C 


• 






DC.B 


,tf % 


$BP 






j81 


degree c 


■ 










$SB 






,82 


degree C 


■ 






DCiB 




$SB 






»83 


degree C 








DC;B, . 




SEE 






>84 


degree C 








DCiB 




$ED 






l8S 


degree C 








DC.B 




$BD 






,86 


degree C 


■ 






DC.B 




$ED 






>87 


degree C 


■ 




DC.B 




$BC 






,88 


degree C 








DC.B 




$EC 






,89 


degree C 








DC.B 




$EC 






1 90 


degree C 


■ 






DC.B 




SEC 






;91 


degree C 


• 






DC.B 




$EB 






»92 


degree C 








DC.B 




$EB 






,93 


degree C 








DC.B 




SEB 






f94 


degree C 








DC.B 




$EA 






;95 


degree C 








DC.B 




$EA 






»96 


degree C 








DC.B 




$EA 






J 97 


degree C 








DC.B 




SB9 






,98 


degree C 
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DC.B 


$B9 


DC.B 


$B9 


DC.B 


$B8 


DC.B 


SSS 


DC.B 


SB8 


DC.B 


$B7 


DC.B 


$B7 


DC.B 


SB7 


DC.B 


$B6 


DC.B 


SR6 


DC.B 


$B6 



»99 

,100 degree C 
,101 degree c 
ii02 degree C 
,103 degree C 
i 104 degree C 
,10S degree C 
il0« degree C 
i 107 degree C 
;103 degree C 
;109 degree C 



i Relative Humidity Display Table 




j The compensated relative humidity stared in OilRBComp is copied to OilftBD 
i conditionally as described in the routine OilstEDlsp. The content of 
tOilRBD is used as offset to fetch the.' string _ in the following table to 
i display the relative humidity on tjte 'screen.*"' 



OilRBDispTbl 



(OilRBComp) 




40%";;. FormFeed 
•41%". FormFeed 
FormFeed 
PormPeed 
FormFeed 
FormFeed 
FormFeed 
FormFeed 
FormFeed 
FormFeed 



, 40% relative humidity, 

t 41% relative humidity. 

, 42% relative humidity. 

t 43% relative humidity. 

; 44% relative humidity. 

, 45% relative humidity, 

t 46% relative humidity. 

i 47% relative humidity. 

, 48% relative humidity. 

$ 49% relative humidity. 



DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



50%*, FormFeed 
51%*, FormFeed 
FormFeed 
FormFeed 
54%". FormFeed 
55%-. PormPeed 
56%-. FormFeed 
57%-. FormFeed 
58%-. 



■52% 
•53% 



, 50% relative 

t 51% relative 

, 52% relative 

, 53% relative 

, 54% relative 

/ 55% relative 

I 56% relet ive 

, 57% relative 

, 58% relative 



humidity, 
humidity . 
humidity, 
humidity, 
humidity, 
humidity, 
humidity, 
humidity, 
humidity. 
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DC.B 


•S9%". 


FormFeed 


, 59% relative humidity. 


DC.B 


•60%-, 


FormFeed 


, 60% relative humidity. 


DC.B 


•61%''. 


FormFeed 


, 61% relative humidity. 


DC.B 


•62%-, 


PormPeed 


i 62% relative humidity. 


DC.B 


•63%", 


FormFeed 


, 63% relative humidity. 


DC.B 


•64%". 


PormPeed 


, 64% relative humidity. 


DC.B 


•65%", 


FormFeed 


, 65% relative humidity. 


DC.B 


•66%", 


FormFeed 


, 66% relative humidity. 


DC.B 


•67%". 


FormFeed 


, 67% relative humidity. 


DC.B 


•«8%*, 


FormFeed 


/ 69% relative humidity. 


DC.B 


•€9%", 


FormFeed 


; 69% relative humidity. 


DC.B 


"70%". 


FormFeed 


, 70% relative humidity. 


DC.B 


•71%*, 


FormFeed 


, 71% relative humidity. 


DC.B 


-72%". 


FormFeed 


, 72% relative/humidity. 


DC.B 


"73%-, 


FormFeed 


; 73% relative. humidity. 


DC.B 


•74%-, 


FormFeed 


; 74% relative' humidity. 


DC.B 


•75%", 


FormFeed 


, 7S% relative humidity. 


DC.B 


•76%-. 


FormFeed 


, 76% relative humidity. 


DC.B 


"77%", 


FormFeed 


, 77% relative humidity. 


DC.B 


■78%-. 


FormFeed 


; 78% relative humidity. 


DC.B 


■79%'. 


FormFeed 


i 79% relative humidity. 


DC.B 


"80%-, 


FormFeed 


, 80% relative humidity. 


DC.B 


■81%-. 


FormFeed 


, 81% relative humidity. 


DC.B 


•82%», 


FormFeed 


, 82% relative humidity. 


DC.B 


T83% w . 


FormFeed 


, 83% relative humidity. 


DC.B 


•84%", 


FormFeed 


, 84% relative humidity. 


DC.B 


"8S%", 


FormFeed 


, 85% relative humidity. 


DC.B 


^86%-, 


FormFeed 


t 86% relative humidity. 


DC.B 


•87%-. 


FormFeed 


, 87% relative humidity. 


DC.B 


■88%". 


FormFeed 


, 88% relative humidity. 


jr- DC.B 


■89%", 


FormFeed 


, B9% relative humidity. 


■ \ 

DC.B 


•90%", 


PormPeed 


; 90% relative humidity. 


DC.B 


•91%", 


FormFeed 


; 91% relative humidity. 


DC.B 


•92%-. 


FormFeed 


, 92% relative humidity. 


DC.B 


•93%", 


FormFeed 


, 93% relative humidity. 


DC.B 


•94%-. 


FormFeed 


i 94% relative humidity. 


DC.B 


•9S%", 


FormFeed 


, 9S% relative humidity. 


DC.B 


•96%". 


FormFeed 


, 96% relative humidity. 


DC.B 


"97%-. 


FormFeed 


; 97% relative humidity. 


DC.B 


•98%-, 


FormFeed 


; 98% relative humidity. 


DC.B 


•99%-. 


FormFeed 


, 99% relative humidity. 
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SetupMen.asm 



i If "SelectMenu" routine detect* that "Setup Menu" is selected. 

i "SetupMenu* routine will be executed, while *s«tupMenu* Is active, the 

/routine continuously monitoring "Next item* key. The key causes 

i "Setup Menu" to display next Setup item. The Setup items 

isret Setup Oil Temp limit (SetOTempLmt) , ??????????????????????????? 



INCLUDE "AllPilesBQO.inc" 



XDX7 
XDBF 
3CDSP 
XDSF 

XREP 
XREP 
XREF 
XREF 
XREF 




SetupMenu, SetupItemLast £T~ jZ&F 
SOTLimitSta. SOLifeSta, SDateTimeSta 
TestViacSta, PurgeOnSta.^ PurgeOffSta 
purgeOnlTN, PurgeOf f ITN? .OTLimitlTN, TestViscITN 

+ i 

ClearDisp, LaatKey,^ Setup Item, ClrDispBuf 
OneSecDelay, ^fritebata, DispBut, OilRKDisp 
ClrDisp. liA^ 

SetOTUmit^SetOZ^ife, SetDateTime. SetViacCalib 
TestVisc, PurgeStart, Purges top 
MenuItemLast/ Menultem 



; SetupMenu Equates 

TestViscITN t EQD 

PurgeOnlTN EQW 

PurgeOfflTN EQU 

OTLimitlTN EQU 

OLifelTN EQU 

DateTimelTN BOO 

ViseCaliblTN SOU 

LaatSe tup ITN EQU 



$1 
$2 
$3 
$4 
$5 
$6 
57 
$7 



t Define Variables (SetupMenu. asm) 
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SOTLimitSta 



SOUfeSta 

SBateTiaeSta 

TestViacSta 

PurgeOnSta 

PurgeOffSta 

SetupItemLast 



/Set Oil Temperature Limit Item process 



DS.B 
DS.B 
DS.B 

DS.B 
DS.B 
DS.B 



> "Active" - The item was just been 
i selected, 
j "Continue* - Continue to process the 
» item. 

/ "inactive* - The item was de •selected. 
iSet Oil Life Item process status: 
/Set Date/Time Item process status: 
/Set Oil Test Viscosity Itemfprocess 
# status: ^-|) v ^ 

/Set Oil Purge On Item process status: 
iSet Oil Purge Of f itemfprocess status: 



SetupMenu: 



sei 
Ida 



beq 



LDA 
STA 



LDA 
^CMP 



Menultem 
MenuItemLast 
CIO SMenu 




ttTestViscITK^ 't SetupMenu was just selected. 



Setupitem 

r »C20^SMenu 

* Last Key 
ffNextltem 
C20 SMenu 



i so set to display first item in Setup 



j Test last key code. 

/Was "Next Item* key pressed? 



LDA 
CMP 



LDA 
STA 
bra 



LDA 
INOV 



Setupitem /Test to see if the current Setup 

ftLastSetupTTN /Menu item displayed is the last 
d6_SMenu. /Setup Menu item in the menu list. 



ftl 

Setupitem - 
C20 SMenu 



Setupitem 



/back to start of list 
/(Setupitem) -> l for processing 
/the first item in the menu list. 



/Mot last item, 
/increment (Setupitem) for 
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/displaying next item. 



/Change below 

C20 SMenu: 

LDA 
CMP 
BNE 
JSR 
JMP 

Q0_SMenu: 

LDA 
CMP 
BNE 
JSR 
JMP 

C«0 SMenu: 



BNE 
JSR 
JMP 
CS0_SMenu: 

LDA 



Setupitem 
for TestVisc, Purge, 6 cancelPurge 



CMP 



JSR 
JMP 



LDA 
CMP 



LDA 
CMP 



JSR 
JMP 



LDA 
CMP 



JSR 
CI 00 SMenu: 



Setupitem 

#TestVisclTN 

C30_SMenu 

TestVisc 

C100_SMemi 

Setupitem 
ftPurgeOniTN 
C40_SWenu 
PurgeStart 

R J 



Setupitem 
# PurgeOfflTN 
CS0_SMenu 
PurgeStop 



/To see if Setupitem is Viscosity Test 
/Turn Viscometer On 

/To see if Setupitem is Purge On 
/display "purge on" option V- 

»To see if Setupitem is Purge Off. 
/display "purge off" option 



./TO see if Setupitem is Set Oil 



Setupitem 
#OTLimitITN 

C60_SMenu •<-;> ^-/Temperature Limit Menu item. 
SetOTLimit /"v'jCall Setup Oil Temperature Limit routine 
CI 00 SMenu 



.-Setupitem 
"i#OLdfeITN 
>C70^SMenu 

SetOLife 

C100 J 



Setupitem 
SDateTimeTTN 



cao_ 

SetDateTime 

aooj 



/To see if Setupitem is Set Oil 

/Life Menu item. 

/Call Setup Oil Life routine. 



/To see if Setupitem is Set Date/Time 
/item 



/Call Setup Date/Time routine. 



Setupitem 

SViscCallbTTN /To see if Setupitem is Set Oil 

R_SMenu /Life Menu item. 

SetViscCalib /Call Setup Oil Life routine. 
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Ida 
sta 


Setupitem 
SetupItemLast 




LDA 
CMP 
BNE 


LastKey 
8 Enter 
RSMenu 


/Test last key code. 
/Was "Enter" key pressed? 


LDA 
CMP 
BNE 


Setupitem 

«LastSetupITN 

ClX0__SMenu 


/Test to see if the current Setup 
/Menu item displayed is the last 
/Setup Menu item in the menu list. 


LDA 
STA 
bra 


81 

Setupitem 
RSMenu 


/back to start of list 
/(Setupitem) -> 1 for processing 
/the first item in the menu list. 


CHO^SMenu: 
LDA 
INCA 
STA 


Setupitem 
Setupitem 


"'^Jli . ** 

/Not last item, 
/increment (Setupitem) for 
/displaying next item..?*** 


R SMenu: 
/ cli 
RTS 




\ : 

J* 




%J 
V> 
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TestPurge.asm 



INCLUDE •AllFileaECfO.inc- 



Test Vise, Purges t Art, Purges top 



ClrDispBuf , dearDi sp 

DispHotne, CurnarRight, Cur sorBlink, WriteData 
DiSpBuf 

TestViscSta, PurgeOaSta^PurseOffsca, sOTLiraitSta 

Alarnfrimer ^* ^^m^ 
Oilltem iffc^f 
Setupltem, ^xenultem 

PurgftOnlTN^PyrgeOfCrrN, OTLimitlTN. OillTN 
ViscStatus, ViscoraeterOn, Purge On, PurgeOff 
SetupItemLast, OilltemLast 

w 

; Define Constant*. ^ 



XREF 



XREF 
XREF 



ConstSec' 



fX XH 
v.. SECTION 

TestViscScrn DC.B 
SC.B 

PurgeOnS cm DC.B 
DC.B 

PurgeOff Sera DC.B 
DC.B 



Code Section 



/For tables and constants. 
/1234S678901224567890 
To test Viscosity ". LineFeed 
press Enter FormFeed 
To Purge/Prime oil LineFeed 
press Enter FormFeed 
•To cancel Purge/Prim". LineFeed 
press Enter 
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CodeSec 



SECTION 



• Initiate a Viscocity Test 
TestVisct 



Ida 
cap 
beq 

JSR 

bra 

IC: 
Ida 
CMP 



Ida 
sta 



Ida 
sta 



Setup! tern 
SetupItemLast 

ciojrvisc 

TestViscDispInit 
R_TVi6C 

LastXey 

•Enter 

R_TVisc 

ViscometerOn 

fiOillTN 
Menultem 



/now display these values along 
/with boiler-plate text. 



SOilViocITN 
Oilltem 



/Turn Visco m eter an - 1 



/turn off .Setup Display and turn < 
,/Oil Display 



At ^/specifically Viscometer reading 





Teat vlacpeity ^Display I nit 

Tes tVi scDispIni t : 

v JSR ClearDisp 



LDX 

LJTVDInit: 

IDA 

STA 

CMP 

BBQ 

INCX 

JMP 

C_TVDInit: 

JSR 
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00 

TestViscScrn, X 

DispBuf.X 
SFormFeed 
P_TVDInit 

L__TVDIait 

WriteData 



/Transfer caned test data from ROM 
/to Display Buffer. 



/Write Display Buffer data to Display. 
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JSR 
RTS 



ClrDispBuf 



/Clear Display Buffer. 



Initiate an Oil Purge 
PurgeStart : 



Ida 
cmp 
beq 


Setupltem 

SetupItemLast 

ClO^Pon 




JSR 

Ida 
sta 
JMP 


PurgeOnoi spXni t 

setupltem 

SetupItemLast 

R_Pon 


/now display these values along 
/with boiler-plate text. 


Ida 
CMP 

BNE 


Last Key 
#Enter 
R_Pon 


'US. 


jsr 


PurgeOn 




Ida 
sta 

clr 


ftPurgeOf f ITM & "'■ 
Setupltem 

SetupItemLast 


/switch Setup display & input to 
/Purge Off 


RTS „ 


A' 





* PurgeOn Display I nit * 



PurgeOnDispInit : 
JSR 



LDX 



L_POnIni t .- 



LDA 
STA 
CMP 
BEQ 
INCX 



ClearDisp 

00 



PurgeOnScrn,X 
f.X 



/Transfer caned test data : 
/to Display Buffer. 
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JMP 



JSR 
JSR 



L POnlnit 



WriteData 
ClrDispBuf 



/Write Display Buffer data to Display. 
/Clear Display Buffer. 



Cancel an Oil Purge 



PurgeS top: 

Ida 



CMP 
beq 
LDA 
CMP 
beq 



Ida 



Setupltem 

SetupItemLast 

C20_Po£f 

ViscStatus 
spurge inProg 
O0_poff 
ViscStatus 
Spurge Order 
C10_Poff 

SOTLimitlTN 
Setupltem 



clr SetupItemLast 
bra R Poff ~% 

C10_Poff : 

JSR . PurgeOff Displnit 

v.- w 

< Ida }} ^Setupltem 



./switch Setup display s. input to purge 
/Off 



/now display these values along with 
/boiler-plate text. 



sta h 

~-.bra\. 



jar 



Ida 
sta 



SetupItemLast 
R_Poff 

La st Key 

SEnter 

C30_Poff 

PurgeOff 

fiPurgeOnlTN 
Setupltem 



SetupItemLast 



/switch Setup display & input to Purge 
/On 
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RPoft: 



bra 


R_Poff 


UA 


vises tatua 


CKP 


fOilPurged 


hue 


R_Poff 


id* 


foiirm 


sta 




Ida 


iOilVisClTN 


ita 


Oilltem 


clr 


OilltemLast 


KTS 





* PurgeOff Display Jnlt 
Purgeof fDisplnit i 



JSR 

IB* 
L_POffinitj 

IDA 
STA 
OIP 
BEQ 
IziCX 
JMP 
C POfifilnit: 

-KTS. 




dearOlsp 

PurgeOffScrn,^^iTransfer caned teat data from ROM 
DispBuf.X-g^s^ ijto Display Buffer. 
fFormFeed 
C POfflalt 

\> : WriteData i Write Display Buffer data to Display. 

^ClrDiepBuf ; Clear Display Buffer. 
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8etDateTime.asm 




ZKCUDOB "AllFilesEQU. inc" 



XDSF SetDateTime 

XDBF SDTCurPos 

xdsf MontbMSD, MonthLSD . DateMSD , DateLSD. YearMSDYYearD2 , YearDl 

XDSF Year LSD, BourMSD, Hour LSD, MinMSD.MinLSDlAmPcy v 

i? 

XREF SDTRightXey , SDTLeftKay, SDTUpKoy SpTDpvnRey . SDTSnLerXey 

XRSF ClearDisp.DispHocw.cursorlUght.O^drBllnk.WriteData 

XREF DispBuf.Di8pBuf2 j^Z*. & 

XRSF SDateTimeSta $ <^ 

XRSF LastXey, SetupIte^q^tupItemLast 

XRSF Sec. Min.Hcnirs.T^TDate, Month. Year 

XRSF DecASCIl, Am. ^Sm.^ICbloa 

XRSF YearXlOOS ; Ye arXlOs", MonthXlOOS , MonthXlOS , Da teXlO OS , DateXlOS 

XRSF BrXlOOsTBrXlOS • MinXlOOS . MinXlOS , AmPraOS . OolonOS 

XRSF xNibble^Lo, v aNibbleHiLo 

De f ino constants 



DC.B 
DC.B 



i Define Variables 

VarSec SECTION 
SDTCurPos DS.B 



;For tables and < 



• Set Date/Time: LineFeed 
■cto/dd/yy hh:ian ?M". FormFeed 
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YearMSD 

Yeam2 

YearDl 



DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 



i Code Section 
eSec SEC 

SetDateTime * *v 

* 

SetDateTime: «... V" 

Ida Setupltemjf^, 

Cap SetupItemLasY 

beq C-SDT^ V** 

JSR SDTDisplnit 

JMP »^ )•> R_SDT 
C.SDT: .^ N Xt 

LDA if ~ ja, LastKey 

ofe'*^* SRight 

- -BHS% C1_SDT 

JSR SDTRightXey 

JMP R_SDT 

CI SDT: 

CMP SLeft 

BNE C2_SDT 

JSR SDTLeftKay 

JMP R_SDT 

C2_SDT: 

CMP »Up 

BNE CJ_SDT 
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JSR 
JMP 



JMP 

CMP 
BNE 
JSR 

RTS 



SDTDisplnit 

SDTDisplnit: 
JSR 

LDX 

L SDTD LDA 
STA 
CMP 
BEQ 
ZKCX 
JMP 



JSR i 
' stx"' 

LDA \ 

LDX 

STA 

LDA 
AND 
TAX 
stx 

LDA 
LDX 
STA 

LDX 



SDTOpKey 
R_SDT 

a Down 
C4_SDT 

SDTDownKey 
R_SDT 

ttEnter 
R_SDT 

SDTEnterXey 



ClearDisp 



#0 

SetDTScra.X . 



./Transfer caned test data from ROM 



DispBuf, X -rV; -j to Display Buffer. 
#FormFeed-'^.^' 
C10_SDTD 



L_SDTD 
Month 

xNibbleHiLo 
ManthMSD 
DecASCIl, X 
MonthXIOOS 
DispBuf 2. X 

Month 
tt$0F 

MonthLSD 
DecASCIl. X 
MonthXIOS 
DispBuf 2, X 

Date 
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JSR 


xNibbleHiLo 


stx 


DateMSD 




LDA 


DecASCIl. 


X 


LDX 


DateXlOOS 




STA 


DispBuf 2. 


X 


LDA 


Date 




AND 


#$0F 




TAX 






stx 


DateLSD 




LDA 


DecASCIl. 


X 


LDX 


DateXlOS 




STA 


DispBuf 2, 


X 


LDX 


Year 




JSR 


xNibbleHiLo 


stx 


YearMSD 




LDA 


DecASCIl. 


X 


LDX 


YearXlOOS 




STA 


DispBuf 2. 


X 


LDA 


Year 




AND 


ff$0F 




TAX 






stx 


Year LSD 




LDA 


DecASCIl. 


X 


LDX 


YearXlOS 




STA 


DispBuf 2. 


X 


LDA 


Hours 




JSR 


aNibbleBlLo 


AND 1 










8tX '4: 


HourMSD 




LDA ^ 


DecASCIl, 


X 


LDX 


HrXlOOS 




STA 


DispBuf 2. 


X 


LDA 


Hours 




AND 


*$0F 




TAX 






stx 


Hour LSD 




LDA 


DC CAS CI I. 


X 


LDX 


HTX10S 




STA 


DispBuf 2. 


X 


LDX 


Min 
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•cx 

LDA 
LDX 
GTA 

LDA 
AND 
TAX 



LDX 
STA 



AND 
BEQ 
LDA 
■ta 
LDX 
STA 



MlnKSD 
DecASCXX. 
MloXlOOS 
DispBuf2. 

Kin 
•$0P 



MlnLSD 
DecASCII, X 
MiflXlOS 
DispBuf2. X 



•920 

C20_SDTD 
Pn 



DispBuf2. X 
C30_SDTD 




C20_SDTD: 



LDA 
ota 
LDX 
STA 

): 

JSR 



; ^LDA^^ 



SDTCursorKra 



Am 
AraPm 
AmPmOS 
DispBufi-JX^ 

Mrltepata 
DispHome 
Cur sorB link 
- SDTCursorEra 

CMonthMSDAdd 
SDTCurPos 



4S y 



i write Display Buffer data to Display. 



JSR 
DSCX 



#SDTCurAdd 
CursorRight 
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SDTXsyS ,*«tn 



INCLUDE "AllPileaSQU. inc" 



SDTOpKey, SDTDownKey. SDTLefftKey. ,-SDTRlghtJ 
SDTEnterKey. RTCCReglnit. WaitSPIRdy * 1 * 



XHKF 
XRSP 
XREF 
XRET 
XREF 
XREF 
XREF 
XREF 




HRDDRAKAdd, DDRAMAdd . 
SDTCurPos ^ 
MonthMSD , MonthLSD , DateMSD , Da teLSD , YearMSD , YearD2 , VearDl 
year LSD , HourMSD, HourLSD.MinKSD. MinLSD, AffiPm 
Ara.Pra _ ^^^--^ 

CursorLefit, CursorRight . TONumber.WriteNibble 

RTC^SFISetup.,!^^ 
nateTirael:^^> 

Sec , Hln , Hours , Day . Date . Month , Year , Ye ar_xi KXi o 0 
OacASCXI^ 
t ^Io6usOolay 

$ 



CodeSec $ SECTION 



SDTUpKey 



SDTUpKey LDA. 

CMP 



JSR 
JMP 



C SDTCJ CMP 



SDTCurPos 

WtonthMSDAdd 

CSOTU 

UK__SMonthMSD 
R_SDTU 

iMonthLSDAdd 

ci_sdtd 



Page 1 



8 i \GR00PS\BMQ\PR0OlC\Docui 



lion ListingtASDTKeya .asm - 05/11/1999 15:28:1 



JSR 
JMP 

CL_SDTU CMP 
ENB 

JSR 
JMP 

C2_SDTU CMP 
8KB 

JSR 
JMP 

C3_SDTU CMP 



JSR 
JMP 



C^SDTU: 



UK_SManthLSD 
R SDTU 



UKSDateMSD 
R SDTU 



UK_SDateLSD 
RjSDTU 



UK_SYearMSD 
R SOTO 



IVearLSDAdd 
C7 SDTU 




C7_SDTU CMP 



UK_SYearLSD 
R_SDTU . 



C8 SDTU 



: UK_ SHourMSO 



C8_SDTV ^OfP.'* 

S «MTS 



JMP J % R.SDTU 



JSR 
JMP 



C9SUTU CMP 



#HourLSDAdd 
C9_SDT0 



DK_SHourLSD 
R SDTU 



#MinMSDAdd 
CIO SDTU 



JSR 
JMP 



CIO SDTU CMP 



UX_SMinMSD 
R SDTU 



#MinLSDAdd 
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8KB 


C11_SDTU 




JSR 
JMP 


UX_SMiBLSD 
R_SDTU 




CI 1 SDTU CMP 
BNE 


8AmPmAdd 
R_SDTU 




JSR 
JMP 


UK_SAmPm 
R_SDTU 




R_SDTU RTS ; 


** -Return*** 




* UK_SMonthMSD 


* 




UK SMonthMSD: 
LDA 
STA 
JSR 


"i 

SDTCurPos ^ 
DDRAMAdd ' ~" 
WRDDRAMAdd 




LDA 
CMP 

blo 

CLRA 

STA 

JMP 


MonthMSD > r 
OMonthMSDLmt ' c v" 
Cl_SMottMSDU -.V; 

MonthMSD 
• - v C2_SMonMSDU 




CI SMooMSDUj 

mcA 

. STA 


MonthMSD 




C2 SMonMSDU: 
TAX 
JSR 


MRHuxober 




JSR 


Cursor-Left 




RTS 






• UK_SMonthLSD 
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UK SMonthLSD: 
LDA 
STA 
JSR 


SDTCurPos 
DDRAMAdd 
WRDDRAMAdd 


LDA 
CMP 
blo 


MonthLSD 

OMonthLSDLmt 

Cl_SMonLSDU 


CLRA 

STA 

JMP 


MonthLSD 
C2_SMonLSDU 


CI SMonLSDU: 




INCA 
STA 


MonthLSD 


C2 SMonLSDU: 
TAX 
JSR 


WRNumber 


JSR 


CursorLeft 


RTS 


"v 


* UK_SDateMSD * 
»»••**»**•*»**••* . •" 

.> '**■ 

UK SDateMSD 

LDA ! i: : 

';■ jsr. 


■• "V. y' 

SDTCurPos 
DDRAMAdd 
WRDDRAMAdd 


LDA 


DateMSD 


CMP 
blo 


ttDateMSDLmt 
C1_SDMSDU 


CLRA 

STA 

JMP 


DateMSD 
C2_SOMSDU 


Cl SDMSDU: 

INCA 
STA 


DateMSD 
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UK__SDateLSD : 



IDA 
CMP 
bio 



C1_SDLSDU : 

STA 



TAX 

JSR 



Date LSD 
tDateLSDLfflt 

a. sdlsdu 



DateLSD 



OK SDateLSD ♦ 



UK SYearHSD: 
LDA 
STA 



i> 6 
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CLRA 
STA 



YesrMSD 
C2_SYMSDO 



DK_SYearLSO * 



UK SYearLSD: 
LDA 
STA 
JSR 

LDA 
CMP 
bio 



sotcutpos 

DORAMAdd^-g,*^ 
WRDDRAMAdd 

YearLSD 
^ | #YearLSDLrat 
SYLSDU 



4*. *f ,. <x> 
CLRA"**^ 1 



YearLSD 
C2_SYLSDU 



a_SYI*SDG: 

INCA 
STA 



TAX 

JSR 



WRNumber 
Cursor Left 
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RTS 


;»**Returo*** 




• UK_SHOUTMSD 






UKJSHow 


cMSD: 








LDA 


SDTOirPos 






STA 


DDRAMAdd 






JSR 


WRDDRAMAdd 






LDA 


BOuxMSD 






CMP 


ttHourMSDLmt 






blo 


C1_SHMSD0 








\ k .. 




CLRA 








STA 


HOUXMSD 






JMP 


C2_SHMSDU 




C1_SHMS] 


30: 


V 






INCA 








STA 


HourMSD . 'ss 








- • ' i ■ r 1 




C2_SHMS1 


30: 








TAX 


. v % 






JSR 


WRNumber y 






JSR 


CursorLeft 














RTS 


, f ***Return*** 








. %> "' 




* UK_S1 


lour LSD 






OK_SHouj 


rLSD: 








LDA 


SDTCurPos 






STA 


DDRAMAdd 






JSR 


HRDDRAMAdd 






LDA 


Hour LSD 






CMP 


BHourLSDLmt 






blo 


Cl^SHLSDU 






CLRA 
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STA Hour LSD 

JMP C2_SHLSDO 



INCA 

STA Hour LSD 



JSR WRNumber 
JSR CursorLeft 
RTS ;***Retum*** 



UK SMinMSD 



UK SMinMSD: 



LDA 
STA 



LDA 
CMP 

blo 



MinMSD v. 
ffMinMSDLmt . 

ci_Smmsdu , r ' 



STA 
JMP, 



U:^ 
INCA 
S -STA 



TAX 
JSR 



v. 



CursorLeft 
'Return** • 
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LDA 
STA 



LEA 
OCP 

blo 

CLRA 

STA 

JMP 



SDTCurPo* 
DDRAMAdd 
WRDDRAHAdd 

MinLSD 
•MinLSDLmt 
CI SMLSDC 



Cl_SMLSDO; 

STA 



C2_SMLSD0: 

TAX 



MinLSD 



JSR 
RTS 



• UK_SAmPm 



UX_SAroPm: 



</"%LDAJ 
STA 



LDA 
CKP 



fa. 7* 



SDTCurPo s 

DDRAMAdd 

WRDDRAMAdd 



SAllones 
C SAPU 



LDA 
STA 



; ASCII "A* 
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LDA 
STA 
JMP ' 



C1_SAPU: 



LDA 
STA 



LDA 

LSLA 

LSLA 



JSR 
JSR 



«SF0 

WriteNibble 



WriteNibble 



* SDTDownKey „*0 

V'^Sb- 

SDTDownKayj 2 

^LDA* : ^^ 

cbnb 

JSR 



SDTCurPos 

ftMonthMSDAdd 

C_SDTD 

DK_SMonthMSD 
R SDTD 



CMP 



JSR 
JMP 



IMcnthLSDAdd 
CI SDTD 



DK_5MonthLSD 
R SDTD 



4&X 9 
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CI SDTD: 

CMP 
BKE 


ftDateMSDAdd 
C2_SDTD 








JSR 
JMP 


DK_SDateMSD 
R_SDTD 








C2 SDTD: 

CMP 
BNE 


tJDateLSDAdd 
C3_SDTD 








JSR 
JMP 


DK_SDateLSD 
R_SDTD 








CI SDTD: 

CMP 
BNE 


BYearMSDAdd 
C4_SDTD 






V"'' 


JSR 
JMP 

C4 SDTD: 

CMP 
BKE 

JSR 
JMP 


DK_SYearMSD 
R_SDTD 

«YearLSDAdd 
C7_SDTD 

DK_SYearLSD ; 
R_SDTD . . 


. ;.f . •- ■ 


P 




C7_SDTD: 

CMP 
BNE 


OHouxHSDAdd 
'<"" C8_SDTD 








JSR . 

jmp ; 


* 

... DK_SHourMSD 
R_SDTL> 








C8 SDTD': ; 

-CMP 
BKE 


CHOUrLSDAdd 
C9_SDTD 








JSR 
JMP 

C9 SDTD: 

CMP 

BKE 


DK_SHourLSD 
R_SDTD 

tminMSDAdd 
CI 0_SDTD 








JSR 
JMP 


DK_SMinMSD 
R_SDTD 
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SMinLSDAdd 
Cll SDTD 



JSR 
JMP 



DK_SMinLSD 
R SDTD 



ftAraPmAdd 
R SDTD 



JSR 
JMP 



DKJSAraPra 
R SDTD 



R__SDTD: 



OK SMonthMSD • 



DK SMonthMSD: 
LDA 
STA 
JSR 

LDA 
CMP 



CLRA 

*' VcJMP.. 



DDRAMAdd v 
WRDDRAMAdd 



#AllOnes 
. U C SMonMSDD 

MonthMSD 
C3 SMonMSDD 



CI SMonMSDD 



DEC 
JMP 



0_SMonMSDD 
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•JtanthMSDlmt 



STA 
JMP 




DEC 
JMP 



Cl_SMonLSOD: 
CMP 



LDA 
STA 



tMonthLSOlmt 

Cl_SMcnLSDD 



MonthLSD 

C3 SMonLSDD 



•0 

a SMonLSDD 



SMonthLSDLmt 
MonthLSD 



Page 13 



B:\QtOOPS\ENO\PRODlC\DOCuai .on Lt*tingi\SDTK©y» .< 



05/11/1999 15:28:1 



JMP 

QSMonLSOD: 



a_SMcm^DD 

MonthLSD 
MonthLSD 



Curs or Left 



DK_SBa CeMSD 



STA 
JSR 



LDA 
CMP 



CLRA 
STA 
JMP 



,f s CMP-^t^ 



DSC 
JMP 



.•A 

C SDMSDD 

DateMSD 
C3~SOMSDD 



ODateMSDLmt 
CI SDMSDD 



DateMSD 
C3_SDMSDD 



LDA 
STA • 
JMP 



00 

C2_SDMSDD 

«DateMSDLmt 
DateMSD 
C3_SDMSDD • 
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C2 SDMSDD: 

DEC 


DateMSD 




C3 SDMSDD: 

LDX 


DateMSD 




JSR 


WRNumber 




JSR 


CursorLeft 




RTS 






• DK_SDateLSD * 






DK SDateLSD: 
LDA 
STA 
JSR 


if' 

SDTCurPoa 7 ' % ^ 
DDRAHAdd & 
WRDORAHRdd '''W*' 




LDA 
CMP 
BNE 

CLRA 

STA 

JMP 

C SDLSDD: 

CMP . \: 
BNE ?! 


DateLSD 

SAllOnes - 

C SDLSDD : X 

• 4V- 

DateLSD 
C3 SDLSDD 

•DateLSDUnt 
CI SDLSDD 




DEC 
JMP 


DateLSD 
C3 SDLSDD 




CI SDLSDD : 

CMP 
BNE 


SO 

C2 SDLSDD 




LDA 
STA 
JMP 


tfDateLSDLrat 

DateLSD 

C3_SDLSDD 




C2 SDZtSDD: 

DEC 


DateLSD 
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C3_SDLSDD: 



LDX 
JSR 



DK SYearMSD 



DK SYearMSD : 
LDA 
STA 
JSR 


SDTCurPos 

DORAMAdd 

MRDORAMAdd 




LDA 
CMP 
BNE 


YeatMSD 
«AllOnes 
C_SYMSDD 




CLRA 

STA 

JMP 


YearMSD 

C3_SYMSDD ;i i. 




CSYMSDD: 

CMP 

BNE,> 

<• V 'DEC " ; *- 

" ' ; jmpV 


OYearMSDLrat 
C1_SYMSDD 

YearMSD 
C3_SYMSDD 




C1_SYMSDD: 

CMP 
BNE 


#0 

C2_SYMSDD 




LDA 
STA 
JMP 


ftYearMSDLmt 
YearMSD 
O SYMSDD 
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C3_SYMSDt>: 

USX 


« « 

YaaxMSD 


JSR 


wanumber 


J5R 
RTS 


Coraortefc 


• BKJSVeaxlSD • 




DK SYUXLSD: 
LDA 
STA 
JSR 


DDRAMAdd ^%^W 

MRDDRAMAdd ipl^ 


CMP 
BUS 


YaarLSD .jf 8 * ^ssF 
•AllOnes 4 j 
C_SYLSDD 


CLRA 

STA 

JMP 


YaaxLSo S^f^^W^ 


C_SYLSDD: 

CMP st&y 8YearLSDLmt 
BNE * 5 CI SYLSDD 

OECtrJ ^% YaarLSD 
^/"JMPj^^ C3_SYLSDD 

d SYLSDD; 

CMP #0 

BNE C2_SYLSDD 


LDA 
STA 
JMP 


•YearLSDLmt 
YaarLSD 
C2 JSYLSDD 


C2_SYLSDD: 

DSC 


YaarLSD 


C3_SYLSDD: 
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LDX 
JSR 
JSR 
RTS 

D2C SBcuxKSD 



CuraorLeft 




Cl SHMSDD: 



INCH 
STA 



TAX 
JSR 



JSR 
RTS 



WRNUmber 
CursorLefc 
•Return* •• 
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DK_SHOUrLSD; 

LDA 
STA 
JSR 



CLRA 
STA 
JMP 



SDTCurPos 

DDRAMAdd 

WRDDRAMAdd 

Hour LSD 
ftAllOnes 
C SHLSDD 



LDA 
STA 
JMP 



C3_SHLSDD: 



LDX 
JSR 
JSR 
RTS 



«HourLSDLrot 
C1_SKLSDD 



Hour LSD 
C3_SHLSDD 



C2_SHLSDD 

SHourLSDLrat 
« Hour LSD 
t '£ C3_SHLSDD 

Hour LSD 

Hour LSD 
WRNUmber 
Cursor Left 
/•••Return*** 
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LDA 


SDTCurPos 


STA 


DDRAMAdd 


JSR 


MRDDRAMAdd 


LDA 


MinMSD 


CMP 


ftAllones 


BNE 


C_SMMSDD 


CLRA 




STA 


MinMSD 


JMP 


C3 SMMSDD 



CMP 



DEC 
JMP 



Cl SMMSDD: 



LDA 
STA 
JMP 



LDX 
JSR 
JSR 
RTS 



ftMinMSDLmt 
Cl SMMSDD 



MinMSD 
C3_SMMSDD 



80 

C2_£MMSDD 

«MinMSDLmt 

MinMSD 

C3_SMMSDD 



•; MinMSD 

MinMSD 
WRNuinber 
Cursor Left 
•Return*** 



• OK SMinLSD 
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DX_SMLaLSDi 
LDA 

sta 

JSR 


SDTCurPoa t 

DDRAMAdd 

KRDDRAMAdd 


« 




LDA 
CMP 
BHS 


MinLSD 

iAllOaes 

C_£MLSDD 






clra 

STA 
JMP 


MinLSD 
Q_SKLSDD 






CJSMLSBDi 

CMP 
BHS 

DSC 
JMP 


luinr CAT rnf 

tHiniaPIIilC 
d_8KLSDD 

MinLSD 
C3_SMLSDD 


A 




OX flCLSODi 

CKP 
BHS 


• 0 rf? 

C2_SMLSCD . $ 






LDX 
STA 
JMP 

CI SMLSDD: 

DEC 


SMinLSOlxat 

M-i «t «n ^ ' 

O SMLSDD^ ' 
MinLSD 






Q SMLSDD: 

LDX 


v 

KinLSD 








WRNumber 






JSR 


CurBorLett 






RTS 


,***Return*** 






* DK SAmPu * 








DK SAaPffl: 

LDA 


SDTCurPos 
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SDTLeftXey 



SDTLeftKey: 
LDA 
CMP 



LDX 
JSR 



STA 
JSR 


DDRAMAdd 
MRDDRAMAdd 


LDA 
CMP 
ENS 


AmPm 

•AllOnco 

C_SAPD 


LDA 
STA 
JMP 


An 

AmPco 

C2_SAPD 


CMP 

ENE 


Am 

CL_£APD 


LDA 
STA 
JMP 


Pffl 

AmPm 
C2JSAPD 


LDA 
STA 


Am 
AmPm 


AND 
JSR 


«$F0 

KriteNibble 


LDA AtnPm 

LSLA 

LSLA 

LSLA % 
**** s - t t ^ 
JSR e, S KriteNibble 

JSR CUrs or Left 



%J 



SDTCurPos 

#MonthMSDAdd 

C_SDTL 

ftAmPaiAdd - MonthMSDAdd 
CursorRight 
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DEC* 




ENE 


L_SDTL 


LDA 


#AmPmAdd 


STA 


SDTCurPos 


JMP 


R_SDTL 


CMP 


8MonthLSDAdd 


BKE 


C1_SDTL 


JSR 


CursorLeft 


DEC 


SDTCurPos 


JMP 


R_SDTL 


CMP 


SDateMSDAdd 


RNE 


C2_SDTL 


JSR 


CursorLeft 


JSR 


CursorLeft 


LDA 


#MonthLSDAdd 


STA 


SDTCurPos 


JMP 


R_SDTL 


CMP 


sDateWDAdd' 


BNS 


C3_SDTL 


JSR 


CursorLeft 


DEC 


SDTCurPos 


JMP 


RJ50TL 


CMP 


sYearMSDAdd 


BNS 


C4_SDTL 


JSR 


CursorLeft 


JSR 


CursorLeft 


LDA 


sDaeeLSDAdd 


STA 


SDTCurPos 


JMP 


R_SDTL 


CMP 


«YearLSDAdd 


RNE 


C5 SDTL 
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JSR CursorLeft 
DEC SDTCurPos 



JMP 

C 5 SDTL CMP 



JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 



JMP 



CCJSDTL CMP 
BNS 



JSR 
DEC 



C7 SDTL CMP 



sHourMSDAdd 
C6_SDTL 

CursorLeft 

CursorLeft 

CursorLeft 

CursorLeft 

CursorLeft 

ftYearLSDAdd 

SDTCurPos 

R_SDTL 

HHourLSDAdd 
C7_SDTL 

CursorLeft . 
SDTCurPos f. 

R_SDTL 

^ %: * 
#MinMSDAdd .,>*. v 
CJJ_SDTL 



JSR &< : > CursorLeft 
JSR ... $ CursorLeft 



STA , i 
JMP.> 
C8 SDTL CMP 



JSR 
DEC 



JMP 

C9 SDTL CMP 



SDTCurPos 

R SDTL 



#MinLSDAdd 
C9JSUTL 



CursorLeft 
SDTCurPos 



#AmPmAdd 
CIO SDTL 
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JSR 
JSR 
LDA 



CIO SDTL JSR 
DEC 



cur i or Left , 
Cum or Left 
IMlnLSDAdd 



Curs or Left 
SDTCurPos 



R SDTL RTS ,•• -Return* • • 



SDrrRightXey 



SDTRightKey: 
LDA 
CMP 



C.SDTR CMP 



C1_SLTR CMP 



JSR 
INC 



C2 SDTR CMP 



SDTCurPos 

fMonthMSDAdd 

C_SOTR 

Curs or Right 




sMonthLSDAdd 
qtlSDiR V 

^ CursorRight 



.^DateMSDAdd 
" SDTCurPoa 

R_SDTR 

iOateMSOAdd 

C2_J5DTR 

CursorRight 
SDTCurPos 

R_SDTR 

SDateLSDAdd 
d SDTR 
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JSR 


CursorRlght 


JSR 


CursorRlght 


LDA 
STA 


•YearMSDAdd 
SDTCurPos 


JMP 


R_SDTR 


CMP 


tYeaxMSDAdd 


BUS 


C4_SDTR 


JSR 


CursorRlght 


INC 


SDTCurPos 


JMP 


R_SDTR 


CMP 


sYearLSOAdd 


HNS 


C5_SDTR 


JSR 


curs or hi gut 


JSR 


CursorRlght 


JSR 
JSR 


Curs orRlght 
CursorRlght 


JSR 


CursorRlght 


LDA 


•HourMSDAdd 
SDTCurPos 


JMP 


R_SDTR |^ 


CMP 


8 HOUTMSDAdd 




JSR . ^ s CursorRlght 



• ^ ; JMP*. 
C6_SDTR CMP 



JSR 
JSR 



R_SDTR 



SHOUTLSDAdd 
C7 SDTR 



cursorRight 
CursorRlght 



SDTCurPos 

R_SDTR 

SMinMSDAdd 
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ENS 


Cfl^SDTR 






JSR 
DTC 


CursorRlght 
SDTCurPos 






JMP 


R_SDTR 




C8_SDTR 


CMP 
BNE 


»MinLSDAdd 

C9_SDTR 






JSR 
JSR 
LDA 
STA 

JMP 


CursorRlght 
CursorRight 
#AraPmAdd 
SDTCurPos 

R_SDTR 


., >\ *• 

>>"*-'• .'Vc- 


C9_SDTR 


CMP 
BNE 


8AmPmAdd 
C10_SDTR 




L^SCTR 


LDX 
JSR 


SAmPmAdd - MonthMSDAdd 
CursorLeft - ' ; *, 




DECX 
BNE 


L_SDTR 






LDA 
STA 


SMonthMSOAdd - 
SDTCurPoa 7'^.. ' ; 






JMP 


R^SDTR 




ClO_SDTR JSR 
INC 


CursorRight 
. -SDTCurPos 




R_SDTR 


'RTS' 


i*»*Retum*** 




* SDTEnterlcey 






SDTEnterKey : 
JSR 


RTCCReglnit 


; Initialize SPX for Real Time Clock. 




JSR 


GetDTEn tries 


/Get and organize Date/Time data 
/entries for RTC. 
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JSR WRDTtoRTC f write Date/Time entries to RTC 

.•clock and calendar memories. 

RTS ;• ••Return* 



• GetDTEntries • 



GetDTEntries: 



LDA 


8 All Zeros 


;RTC "Sec" is not used. 


STA 


sec 


;-Sec" for RTC. 


LDA 


MinLSD 


,Get XI digit for RTC Min. . 


STA 


Kin 


; Upper nibble of -MinLSD" is 0. 


LDA 


MinMSD 


,Get X10 digit for RTC Min. 


JSR 


LoToHiNibble 




ORA 


Min 




STA 


Min 


; -Min" for RTC. 


LDA 


#Bit€Mask :(V 


; Setup RTC for 12 hours mode, bits 


STA 


Hours .. 


jof "Hours" is l. 


LDA 


AmPm "V 




CMP 


Am ^ ~' 




BEQ 


CjBDTS 


;lf AM ( ' A* ) . leave bits of "Hours - 






;0. 


BSET 


5, Hours 


.It is PM('P'). set bits of "Hours" 






itO 1. 


LDA 


HourMSO 


;Get X10 digit for RTC Hours. 


• JSR 


LoToHiNibble 




ORA 


Hours 




STA 


Hours 




LDA 


Hour LSD 


;Get XI digit for RTC Hours. 


ORA 


Hours 




STA 


Hours 


; "Hours" for RTC. 


LDA 


SAllZeros 


; RTC "Day" is not used. 


STA 


Day 


;"Day" for RTC. 


LDA 


DateLSD 


jGet Xl digit for RTC Date. 


STA 


Date 


j upper nibble of "DateLSD" is 0. 
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• i 

LDA DateKSD ,Get Xl 0 digit for RTC Date. 
JSR LoToHlNibble 
ORA Date 

STA Date j "Date- for RTC. 

LDA MonthLSD /Get XI digit for RTC Konth. 

STA Month j Upper nibble of "MonthLSD" is 0. 

LDA KonthMSD ;Cet XI 0 digit for RTC Month. 
JSR LoToHiNibble 

ORA Month .^jScx 

STA Month i "Month" for RTC. ^gP^m^ * 

LDA VearLSD ,Get Xl digit for RTC/ Year. 

STA Year / Upper nibble ,ofj."YearLSD" is 0. 

LOA YeaxMSD /Get XI 0 digit for RTC Year. 

JSR LoToHiHibble 

ORA Year - 

STA Year ^•Year^for RTC. 





WRDTtoRTC : *♦ 



-^BSST 


0. PORTA 


LDA 


•SecW 


STA 


SPDR 


JSR 


WaitSPIRdy 


LDA 


Sec 


STA 


SPDR 


JSR 


WaitSPIRdy 


IDA 


Kin 



/Assert RCT chip select. 

{Write RTC "Sec" memory address. 

/Wait for SPI data transmission to 
/complete. 

/Send -Sec- data to RTC. 



/Wait for SPJ data transmission to 
/complete. 

/Send "Min- data to RTC. 



Page 29 



R : \<3ROD7S\SNQ\PRODlC\Docume 



on Listings\SDTKeya.a 



05/1S/1999 IS:28:1 



SPDR 

WaltSPXRdy 



LDA 
STA 



LDA 
STA 



LDA 
STA 



STA 
JSR 



LDA 
STA 



WaitSPIRdy 



Day 

SPDR 



WaitSPIRdy 
Date 



WaitSPIRdy 
Month 



RTCCReglnit 



RTCCReglnitr 
JSR 



BSET 
LDA 



/Wait for SPI data transmission to 
/complete. 

/Send "Hours- data to RTC. 



/Wait tor SPI data transmission to 
/complete . 

/Send "Day data to RTC. 



/Wait for SPI data transmission to 
/ cemple te . V 
/Send "Date" data tO-RTC: %. 




BCLR -S^' OfPQRTA 
JSR & sj -lOOusDelay 

RTSJ % 



/Wait for SPI, data transmission to 

/complete, jf*' 

/Send "Month" data to RTC. 

si wait -for SPI data transmission to 
" /complete . 

\<VSend "Year" data to RTC. 



/Wait for SPI data transmission to 
/complete. 



RTC w SPISetup /Setup communication link to SPI 
/Assert RTC chip select. 



fiControlRegW /Write RTC Control Register write 
spdr /address. 
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JSR 



LDA 

STA 



JSR 
LDA 
BCLR 
JSR 

RTS 



WaitSPIRdy 



#A11 Zeros 
SPDR 



/Wait for SPI data transmission to 
/complete. 

/Setup RTC Control Register: 
/ Activate RTC OSC, remove RTC 
/ write protect, disable RTC 
/interrupts. 

WaitSPIRdy /Wait for SPI data transmission to 
/complete. 

SPDR /Read SPDR to clear SPIF bit in 

/SPI Status Reg. 
o, porta /Disable RTC. 

_100usDelay /One h u n d r ed seconds delay. 



WaitSPIRdy 



WaitSPIRdy: 
KOI 

L Wait: 



LDA 
AND 
ESQ 



RTS 

<"'■'. 



Spsr 

#SPIFMask 
L.Wait 

SPDR .% 
'- • & 
•Return" •* 



./Wait for SPI data transmission to 
'/complete. SPIFMask - $80. "SPIP" 
/is bit 7 of SPI Status Reg. 



LoToHiNibble 



LoTORiNibble : 
ASIA 



AS LA 
RTS 
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Saton*iinit.esm *• 




1KCLDDB ■AllPilesEQU.inc' 



XOEP SetOTLitait 

XDSF SOTLCurPos 

XDSF DegFMSD , DegFDl . DegPLSD 

XDSF OilTeffipDgt 



XRSF DegFMSDKTC,DegFDlRTC,X>egFLSDKTC 

XRSF SOTLRead § * 

XRSF SOTLRightKey . SCTLLe if tKey? sOTLCpKay , SOTLDownXey 

XRSF sOTLsnterRey 

XRSF clroispBuf yciearDisp 

XRSF Di8pHotno,CursbrRlght,CursorBlink,KriCeData 

XRSF DispBuf. N ^> v ' 

XRSF SOTLiraitSta 

XRSF .f'lAstXey/SetupItem, SetupltemLast 



t Define Constants 

ConstSec% SECTION 

SetOTLScrn DC.B 
DC.B 



"Set Oil Temp Limit: 
"000 Deg F (140-199) 



/For tables and constants. 
LineFeed 



i Define Variables 

VarSec SECTION SHORT 
SOTLCurPos DS.B 1 
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OilTempDgt : 

DegFMSD 
DegFDl 
DegFLSD 



DS.B 
DS.B 
DS.B 



i Code Section 



SetOTLimit t 
Ida 

be£ 

JSR 
JSR 



LDA 
CMP 



LDA 

STA 



JMP 

Cl SOTL: X 



Setuplten 

SetupltemLast 

C_SOTL 

SOTLRead 

SOTLDispInit 

RJ5CTL 



LastXey 

•Right 

Q_SOTL 

SOTLRightKey. 

Inactive 
LaBtKey 



j get values stored. in RTC memory 
/ (with battery bacV-up)>/^ 
ixujw display these values along * 
/boiler-plate text?^ 



":■ ;/ ■ ■ r son. 



CMP 


•Left 


BNE 


C2_S0TL 


JSR 


SOTLLeftXey 


LDA 


ft Inactive 


STA 


LastXey 


JMP 


RjSOTL 



C2_S0TL: 
CMP 
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BNE 


C3_SOTL 




JSR 


SOTLUpKey 




1 LDA 
# STA 
JMP 


•Inactive 
LastXey 

R_SOTL 




C3 SOTL: 
CMP 
BNE 


•Down 
C4_SOTL 




JSR 


SOTLDovnKey 




/ LDA 
i STA 
JMP 


ft Inactive 

LastKey 

R_SOTL 




C*_SOTL : 
CMP 
BNE 


ftEnter 
R_SOTL 




JSR 


SOTLEnterKey 


ft* ■ : * • 


1 LDA 
/ STA 
RJBOTL: 

JSR 


ft Inactive 
LastXey ,j 

SOTLRead 




RTS /• 


••Return*** : 




* SOTLDispInit * 




SOTLDispInit: 
JSR 


ClearDisp 




LDX 
LJBOTLD: 
LDA 
STA 
CMP 
BBQ 
INCX 
JMP 


00 

SetOTLScrn, X 

DispBuf ,X 

•FormFecd 
CSOTLD 

L_SQTLD 


/Transfer caned test data from ROM 
;to Display Buffer. 
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C SOTLD: 

t~ Ida 
Ida 
eta 
add 
Idx 
sta 

/ 

Ida 

sta 

add 

incx 

sta 

Ida 

sta 

add 

incx 

sta 

JSR 

JSR 



JSR 

LDA 
STA 
R_S0TLD: 
RTS 



DegFMSDRTC 
•1 

DegFMSD 

• $30 
•21 

DispBuf. X 

DegFDlRTC 

DegFDl 

«$30 

DispBuf. X 

DegFLSDRTC 
DegFLSD 

• $30 

DispBuf ,X 
WriteData 

ClrDispBuf 

DispHome 

CursorBlinx 



#SOTL_FT)l 
SOTLCurPos 



SOTLCursorHra 



iMSD of Oil Temp Limit 
,MSD of Oil Temp Limit 

;MSD of Oil Temp Limit (currently always 1) 
j convert to ASCII 
; index into DispBuf 
i and store in buffer 

; middle digit of data to be displayed 
/middle digit of data to be displayed 
/ convert to ASCII 
;move to next digit 
/and store in buffer 

jLSD of data to be displayed 

;LSD of data to be displayed 

/convert to ASCII 

; move to next digit M 

/and store in buffer 

i Write Display Buf fer: data to 

/Display. 

/Clear Display Buffer. 



f 



/MSD not used - always set to • 1 ♦ 



SOTLCursorBm: 

LDX #SOTLCursorAdd+l /add I because MSD always 1 (tnot entered) 



L_SOTLC: 
JSR 
DECK 



CursorRight 
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RTS i*»*Return*»* , 
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SOTLKeya.aam 



INCLUDE •AllPilesEQO.inc- 



SOTLOpKey 

soTLDownKey 

SOTLLeftlCey 

SOTLRightKay 

SOTLEnterXey 



XRBF 



SOTLCurPoa £^ . V 
DegFMSD. DegFDl/DegFLSD 

Cur sbrLef t . CUrsorRlght 
■ KRHuibor", WriteNihble 



XRSF.. T; v RXCCRegIn±t,KaitSPIRdy 
XP-EP " ' _io Ous Delay 

.^XRBF^V;-"' RTCounter 



SOTLUpKay • 



SOTLUpKey : 



LDA 
CMP 
BNB 

JSR 



SOTLCurPoa 

8SOTL_F_KSD 

CjSOTLD 

UK SQTLFMSD 



B:\CRODPS\ENG\PIlODiC\OoeuineE 



a Liatinga\SOTLXeys.a«m . 09/20/1599 0«:50; 



c_sotlu ckp 
bus 

JSR 
JMP 

Cl_SOTLO CMP 
BNB 

JSR 

R_SOTLU RTS 

• UK^SOTLFMSD 
TJX SOTLFMSD: 



RjSOTLU 

•S0TL_P_D1 
Cl_£OTLU 

UK S0TLP01 
R_SOTLU 

8S0TL_F_LSD 
R SOTLU 



SOTLCurPoa 



fDegfHSDleat 's, V 
C^FMSUU V* 



CLRA 

STA § DegFMSD 
JMP : ,, < e^ t.Cl_FMSDO 



C_FMSDC "mo<<*^ 
*j staS 



LDX 
LDX 
JSR 

JSR 

RTS 



DegFMSD 
«1 

WRNUmber 



> currently KSD of oil temp limit ia 
; always 1. 



i***Raturn*** 
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* UX_S0TLFD1 * 






UK_S0TLFD1 : 
LDA 
STA 
JSR 


SOTLCurPoa 

DDRAMAdd 

WRDDRAMAdd 






LDA 
CMP 
bio 


DegFDl 

»DegFDlLrotHi 

C_FD1U 






Ida 
STA 
bra 


*DegFDlLnitLo 

DegFDl 

C1_FD1U 




C_FD10 


INCA 
STA 


DegFDl f . 




C1_FD1U 


LDX 
JSR 

JSR 

RTS 


DegFDl 
WRNumber 

CuraorLeCt $ V '■ * 
> j* ••Return* *• 




* UK_SCTLFLSD * 
••*•*••••*••»*•*» 






UX SOTLFLSD : • ' ,- "* ■ 
LDA K 
- STA - 
~* * - JSR 


■i " * 

SOTLCurPos 

DDRAMAdd 

WRDDRAMAdd 






LDA 
CMP 
blo 


DegFLSD 

ODegFLSDLmt 

C_FLSDO 






CLRA 

STA 

JMP 


DegFLSD 
C1_FLSDU 




C_FLSDU 


1NCA 
STA 


DegFLSD 
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CI FLSDU LDX 
JSR 


DegFLSD 
WRNumber 




JSR 


CuraorLeCt 




RTS 




/• ••Return* *• 


* SOTLDovnJCay • 






SOTLDownKey : 
LDA 
CMP 
BNB 


SOTLCurPoa 

»SOTL_F_MSD 

C_SOTLD 




JSR 
JMP 


DKJSCfTZSUSV 

rJjotld 




C_SOTLD CMP 
BNB 


*SOTL_F_pl 
Cl_SOTLD 




JSR 
JMP 


DK_S0TLFD1 
R__IoTLD 




Cl_SOTLD CMP 
BNB 


8SOTL_F_LSD 
R_SOTLD*~ S» 




JSR 


DK_SOTLFLSD 




R_SOTLD RTS ; 




j •••Return*** 


* DK_SOTLFMSD • 






DK_SOTLFMSD: 
LDA 
STA 
JSR 


SOTLCurPos 

DDRAMAdd 

WRDDRAMAdd 




LDA 
CMP 
BNB 


DegFMSD 

ftDegFMSDlAt 

C_FMSDD 




DEC 


DegFMSD 
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C_FMSDD CMP 



ETA 
JMP 



C1_FMSDD DSC 
C3 FMSDD: 



XJDX 
JSR 



• DX SOTLFD1 



DK SOTLFD1: 

STA 
JSR 

LDA. 

,,v'bls'* 



LDA 
STA 
JMP 

C1_PD1D DEC 

C2 FD1D LOX 
JSR 

Page 5 



•0 

CI FMSDD 



DegFMSD 
O FMSDD 



DegFMSD 



DegFMSD 
•1 



/currently MSD of oil temp limit is? 
i always i. ^ % 



Curs or Left 



i *• •Return* *• g 



■ VRBDRAMAdd 

DegFDi 

UDegFDiLmtLo 
C FD1D 



OegFDi 
O F010 



CDegFDlLmtHi 

DegFDi 

C2 FDXD 



DegFDi 
DegFDi 
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D K_S OTLFLSD 



/•••Return*** 



DK_SOTLFLSD: 



CSC 
JMP 



C_FLSDD CMP 
BNB 

Ca FLSDD: 



LDA 
STA 

JMP 

C1_FL5DD DEC 

C2 FLSDD IBX| 

" y ^JsV%> 



SOTLCurPos 

DDRAMAdd 

WRDDRAMAdd 

DegFLSD 

SDegFLSDLmt 

Ca_FLSDD 

DegFLSD 
C2_PL£DD 

80 

d FLSDD 



#DegFLSDLmt^^ 
DegFlSD\^V 

C3 FLSDD 

V 

% DegFLSD 



DegFLSD 
WRNumber 

Cursor Left 



SOTLLeftKey 



SOTLLeftKey: 
LDA 
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SOTLCurPos 
«S0TL_F_D1 
C SOTLlT 



j MSD not entered at operator panel 
i (always 1) 
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L_SOTLL 


LDX 
JSR 
DECX 


8SOTL_F_LSD - SOTL_F_Dl »MSD not entered at 
CursorRight t operator panel 
j (always l) 

L_SOTIiL 




LDA 
STA 


#SOTL_F_LSD 
SOTLCurPos 




JMP 


RjSOTLL 


C_SOTLL 


CMP 
BNE 


«S0TL_F LSD 
Cl_SOTLL 




JSR 
DEC 


CursorLeft 
SOTLCurPos 




JMP 


R_S0TLL :4 


Cl_SOTLL: 

JSR 
DEC 


CursorLeft 
SOTLCurPos 


R_SOTLL 


RTS 


.•***Retum*** 


* SOTLRightKey 




SOTLRightKey: 
LDA . 
CMP 
BNE 


SOTLCurPos 

*SOTL_F_Dl ;MSD not entered at panel - always 1 
C_SOTLR _ 




JSR 
INC 


CursorRight 
SOTLCurPos 




JMP 


R__SOTLR 


C_SOTLR 


CMP 
BNE 


«SOTL_F_LSD 
C1_S0TLR 


L_SCTLR 


LDX 
JSR 
DECX 
BNE 


0SOTL F LSD - SOTL_FJDl /MSD not entered at panel 
CursorLeft i always 1 

L_SCTLR 
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LDA 
STA 



CI SOTLR JSR 



R SOTLR RTS 



SOTLEnterKey 



SOTLEnterKey: 



*SOTL_F_Dl 
SOTLCurPos 



CursorRight 
SOTLCurPos 



/MSD not entered at panel - always l 



RTCCReglnlt 
WROTLtoRTC 



• WROTLtoRTC • 

tf ■ 

WROTLtoRTC: %.. 

BSET ^ 0, PORTA 

-it,, tJ 

LDA S ^ SDegFMSDW 



..'/STA' 



LDA 
STA 



SPDR 

WaitSPlRdy 
DegFMSD 

SPDR 

WaitSPlRdy 

DegFDl 
SPDR 

WaitSPlRdy 



/Initialise SPI for Real Time Clock. 



;Write Set Oil Temperature entries 
;tO RTC User RAM. 



•Return* 1 



i Assert RCT chip select. 

; Write RTC "DegFMSD" memory address. 



/Wait for SPI data transmission to 
; complete. 

; Send "DegFMSD" data to RTC. 



/Wait for SPI data transmission to 
/complete. 

/Send "DegFDl" data to RTC. 



/Wait for SPI data transmission to 
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DegFLSD i Send "DogFLSD - dat» co KXC. 



WaitSPX&dy wait for SPI data 
, complete. 

0, PORTA 
_l00usDelay 

,***Return*** 
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SetGLlfe.asm 



XKCZJQDB •AllFilesEQO.inC" 
ZD5P SetOLife 



XRSF 
XREF 
XHEF 
XRSF 
XRSF 
XRSP 



OLif eMSD. OLlf eD2 , OLlf ftDl . OLifeLSD 

OLlf eKSORTC, OLif eD2RTC. OLi f eDIRTC, OLif eLSDKTC 
SOLRead 

SOLRightXey , SOLLef tKey. SOLUpKey, sOLDownXey. SOLEnterXey 

ClrDiopBuf , ClearDisp ^ «^ 

pi sp Home. CureorRight, Cursors linX, WriteData 



soidfesta 

LastKey,, Setupltem, SetupItemLast 

/ Define constants g ' 

coastSee' %sbction 
setOLifeSc 



DC.B 
DC. 8 



i Define Variables 

VarSac SECTION SHORT 
SOLCurPos DS.B 
OLif eMSD OS -B 
Page 1 "~ 



i For tables and constants. 

Set Oil Change: LineFeed 
000 Days 



B ! \GaOOPS\ENC\PRDDlC\DOCm 

OLifeD2 DS.B T~ 

OLifeDl DS.B 1 
OUfaLSO DS.B 1 



Ion Hatlngs\SetOLife.a 



i - 05/20/1999 08:29: 



i Code Section 



SetOUfe: 
Ida 



JSR 
JSR 
JMP 



LDA 
STA 
JMP 



SetupXtem 
SetupItemLast 
C SOL 



SOLDisplnlt 
R_SOL 

LastKey 
•Right 
Cl_SOL 

SOLRlghtKey 

•Inactive ~S-J?V 
Lastxay * 

R SGLjaa*.. V' 



i read value from RTC meoory.jfor Initial 
, display <^C% ~ 



C1_S0L: 



SOLLef tKey 



/ LDA 


•Inactive 


; STA 


LastKey 


JMP 


R_S0L 


C2 SOL: 




CMP 


•Op 


BRB 


C3_SOL 


JSR 


SOLOpKey 


/ LDA 


•Inactive 


/ STA 


LastKey 
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C3 SOL; 

CMP 
BNE 



LDA 
STA 



LDA 
STA 



R_SOL 



•Down 

C4_SOL 



•Inactive 
LastKey 
R SOL 



•Enter 
R SQL 



SOLEnterKey 



•inactive 
LastKey 



SOLDI splnit 

SOLD i splnit: ' '1: 

JSR : * ClearDisp 



LDX . .. 
L SOLD: 

LDA 

STA 

CMP 

BBQ 

INCX 

JMP 



• 0 



SetOLifeScm,X /Transfer caned test data fr< 
DispBuf.X i to Display Buffer. 

•FormFeed 
C_SOLD 

L SOLD 



OLifeMSDRTC 



;KSD of Oil Temp Limit 
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sta 


OLif eMSD 


;MSD of Oil Tenp Limit (currently always 


add 

ldx 
sta 


#$30 
•27 

DispBuf.X 


/Convert to ASCII 
{index into DispBuf 
;and store in buffer 


Ida 

sta 

add 

incx 

sta 


OLif e02RTC 
OLi£eD2 
• $30 

DiBpBuf,X 


; middle digit of data to be displayed 
middle digit of data to be displayed 
t convert to ASCII 
j move to next digit 
;and store in buffer 


Ida 

sta 

add 

incx 

sta 


OLifeDlRTC 

OLifeDl 

#$30 

DispBuf.X 


j middle digit of data to be displayed 
-middle digit of data to be displayed 
/convert to ASCII 
;move to next digit 
j and store in buffer 


Ida 

sta 

add 

incx 

sta 


OLi f eLSDRTC 

OLifeLSD 

#$30 

DispBuf.X 


;LSD of data to be displayed 
/LSD of data to be displayed 
/convert to ASCII - ; 
/move to next digit 
/and store in buffer 


JSR 
JSR 


writeData 
ClrDispBuf 


/Write Display Buffer data to 
/Display. 

/Clear Display Buffer. 


JSR 


DispRome \ 




JSR 


r<s • Curs orBl ink 




JSR - 

>LDA 
STA 


l| SOLCursorHm 

V »SOL_MSD 
SOLCurPos 





SOLCursorHm 



LDX #SOLCursorAdd 
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. OS/20/1999 01:29* 


L SOLCt 

- cur»orRighti 




DBCX 1 
LSOLC 

ETS ,***Return"* 


Li" ' 






T * X 

i : v * *'* 
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«* SOLXays.asra 



IKCLODS •AllFilesEQU.inc" 



SOLDpKay 
EOLDownKoy 
SOLLeftXey 
SOLRigntKey 
SOLEnterXey 

OLif ftDgtBRTC, OldteMSDRTCrOLif eD2RTC, OLif eDIRTC, OLif eLSDRTC 
01*1 f eHours . 01*1 f eCa te , OLif eHanth , OLif eYear 



NRDORAMAdd 




-rasp 



SOLCurPos 
OLif eMSD ,'OLif eD2 , OLifeDl , OLi feLSD 

WRNumber . Wr&eNlbble 
, air sorRignt . CursorLe f t 

- Hours .Date, Month, Year 
vRTCCReglni t , Hal t SPIRdy 

_100us Delay 

RTCounter 

GetDateTirae 



Define Variables 



OLifeDgtsRTC: 
OLifeMSDRTC DS.B 
0LifeD2RTC DS.B 



$ 4 digits containing oil life entry 

; stored one digit /byte 

1 currently only msd.di.lsd are used 
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OLif eDIRTC DS.B 

OLif eLSDRTC DS.B 
I 

OLifeBours DS.B 

OLlfeDate DS.B 

OLifeMonth DS.B 

OLI Ce Year DS.B 



don Listings\SOLXeya.a*m - 05/20/1999 07:04:0 
~ because oil life is in days 



• SOLOpRey < 
SOLOpKay: 

LDA 



l JSR 
; JMP 

C1_S0LU: 

CMP , 
BNB 

■ *f ^ 



C2 SOLO CMP 



R_S0LU RTS 



OK_SOLMSD 



SOLCurPos 
«S0L_MSD 
C_SOLO 

UK SOLMSD 
R SOLD 



SS0L_D2 &- r 
CI SOLOVV ' 

UK_SOLD2\\ N 




f R SOLO 

,f& *< ■" 

V'. Si 

'W»S0LD1 
\ C2JS0LO 

UKS0LD1 
R_S0LU 

«S0L_LSD 
R SOLO 



UX_S0LLSD 

• * Return* * * 
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UK SOLMSD: 

LDA 


SOLCurPos 
DDRAMAdd 






STA 
JSR 


WRDDRAMAdd 






LDA 
CMP 
blo 


OLifeMSD 

*SOL_MSDLmt 

C_SOLOKMSD 






CLRA 

STA 

JMP 


OLifeMSD 
Cl_SOLUKMSD 






C SOLUKMSD: 

INCA 
STA 


OLifeMSD 






CI SOLUKMSD: 
LDX 
JSR 


OLifeMSD 
NRNumber 






JSR 


Cursor Left 






RTS 


,****eturn* *••>>. % 






* UK_S0LD2 * 








;UK_SOLD2 : 

t ~ LDA ' 

I STA 

1 <"JSR 


SOLCurPos 
DDRAMAdd 






; 

l LDA 
; CMP 
f BNE 
1 


0LifeD2 

0SOL_D2Lmt 

C_S0LD2 






CLRA 
/ STA 
1 JMP 


OLlfeD2 
C1_S0LD2 






i 

jC_S0LD2 XNCA 
/ STA 


OLifeD2 
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LDX 
JSR 



JSR 
RTS 



Cursor Left 
;** •Return*** 



* 0K_S0LD1 * 



LDA 
STA 



LDA 
CMP 
blo 

CLRA 
STA 



XNCA 
STA 

Cl_SQLOKDl : 
LDX 
JSR 



SOLCurPos 
DDRAMAdd 



OLifeDl 
#SOL_DlLrat 
C SOLUKD1 



OLifeDl 
Cl_S0LOKDl 



OLifeDl 
WRNumber 



Curs or Left 
•Return* •* 



LDA 
STA 
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LDA 
CMP 
bio 

CLRA 

an 

JMP 

C SOUJXLSO: 

ikca 

STA 

CI SOUJKXSD ; 



OLiteLSD « 
•SOLJLSDLmt 
C_SOLOKLSZ) 



CLifeLSD 
CI SOLUKLSO 



OLifeLSD 
OLlf«LSD 



SOLDownKeyt 
LDA. 
CMP 



solcutpo&3 
Isol'msd 

C-SOLD 
JSR,.;. % / WtfBKSOLMSD 



C_SOLD: 



R SOLD 



»SOL_D2 
O._S0LD 



DK_SOLD2 
R SOLD 



9SOL_Dl 
C2 SOLD 



DK SOLDI 
R_SOLD 



4% 
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JSR 

RESOLD RTS 



R_SOLD 
DK.SOLLSD 
/♦••Return - ** 



• DK SOLMSD • 



DK^SOLMSD: 

LDA 



JSR 
LDA 



bhi 
bis 



CJSOLDKMSD i 
CMP 




ftAllZeros 

,«f^ ci 



Ca_SOLDKMSD 
LDA 

STA . 

; r#JMP^n?, 

^£ 

Cl_SOLDKMSD: 
DSC 

C2 SOLDKMSD: 
LDX 
JSR 

JSR 

RTS 
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ft ^ir %;**SOL_l 
'^t OLifel 



OLifeMSD 
C2 SOLDKMSD 



OLifeMSD 
OLifeMSD 



CursorLeft 
• •Return* •• 
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,C_SOLD2: 



LDA 
STA 



,Cl_SOLD2 DEC 



;C2_SOLD2 LDX 
; JSR 



SOLCUTPOS 
DDRAMAdd 
WRDDRAMAdd 

OLife02 

ftSOL_D2Lmt 

C_SOLD2 

OLlfeD2 
C2_SOLD2 



ftAllZeros 
Cl_SOLD2 

ftSOL_D2Lmt 

OLifeD2 

C2_S0LD2 



OLifeD2^ 
WRNumber^ 



RTS./ : ; ♦••Return* 



DK_SOLDl LDA 
STA 



LDA 
CMP 
bhi 
bis 



WRDDRAMAdd 

OLifeDl 
ftSOLJULmt 
Ca_SOLDKDl 
C SOLDKD1 
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DEC 
JMP 



CMP 
BNE 
Ca_S0L0XDl : 

LDA 
STA 
JMP 

CI SOLDKD1: 



C2_S0LDKD1 : 
LDX 
JSR 



JSR 
RTS 



OLifeDl 
C2 SOLDXD1 



ftAllZeros 
C1_S0LDKD1 

«S0L DILmt 
OLifeDl 
C2 SOLDXD1 



OLifeDl 
KRNumber 



CursorLeft 
•*Return*** 



LDA 
STA 
JSR 



'bis 



DEC 
JMP 



CMP 
BNE 

Ca SOLDXLSD: 



STA 
JMP 



** OLiteLSD 
#SOL_LSDKnt 
Ca S0LDKLSD 
cJsOLOKLSD 

OLiteLSD 
C2_SOLDKLSD 



ftAllZeros 
Cl_SOLDKLSD 

SSOL LSDLmt 
OLifeLSD 
C2 SOLDFXSD 
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* 1 

ci s omittiSP i * 

~ use OLifeLSD 1 



LDZ OLifeLSD 



jsr Cur* or Left 

RTS /•••Return*** 



• SOLLeftKey 
SOLLeftKey: 





UA 
CMP 




BSE 
LDX 


L_S0LL 


JSR 
DEO 




EOT 




LDA 
STA 




JKP 


C_SOLL 


CMP 




4 BNB 




^JSR 
DEC 




JMP 

JSR 
DEC 




RTS 
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SOLCurPos 
#S0L_MSD 

#S0L_LSD - SOL_KSD 
Curs or Right , 





*S0L_LSD 
a_S0LL 



Curs or Left 
SOLCurPos 



CursorLeft 
SOLCurPos 
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• SCLRightKey « 



SOLRightKey: 
LDA 



C SOLR CMP 



LDX 

L SOLR JSR 



CljSOLR JSR 
INC 



SOLCurPos 
•SOL_MSD 
C_£0LR 

CursorRight 
SOLCurPos 

R_S0LR 

I SOL LSD 
Ca.SOLR 

«SOL_LSD - S0L_MSO 
CursorLeft 

L_S0LR 



SSOL.MSD 
SOLCurPos 



CursorRight 
SOLCurPos 

RTS *i * **Return* • * 



SOLEnterKey: 
JSR 



JSR 
RTS 



RTCCReglnit / initialize SPZ for Real Time Clock. 

WROLtORTC 
GetOLDgtS 
•Return*** 



/Write Set Oil Life entries 
;to RTC user RAM. 
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* WROLtoRTC * 






WROLtoRTC: 






jsr 


GetDateTime 


/get current date time so these values 




:can be used to calculate remaining oil 






j life - stored below back into RTC extra 






/memory locations. 


i 

BSCT 


0, PORTA 


/Assert RCT chip select. 


l 

LDA 


SOLifeMSDW 


/Write RTC "OLifeMSD* memory ^address . 


STA 


SPDR 


/Wait for SPI data transmission to 


JSR 


waitSPIRdy 






/complete. ■*'' 


LDA 


OLifeMSD 


/Send "OLifeMSD" data to RTC. 


STA 


SPDR 




JSR 


waitSPIRdy 


/Wait for SPI data transmission to 




/complete. 


LDA 


0LiteD2 


/Send JOLifeD2- data to RTC. 


STA 


SPDR 




JSR 


waitSPIRdy 


/Wait for SPI data transmission to 






/complete . 


LDA 


oufeDi 


/Send "OLifeDl" data to RTC. 


STA 


SPDR 




JSR 


waitSPIRdy 


/Wait for SPI data transmission to 


i 




/complete. 


LDA 


OLifeLSD 


/Send -OLifeLSD" data to RTC. 


STA 


SPDR 




JSR 


; WaitSPIRdy 


/Wait for SPI data transmission to 


l 




/complete. 


LDA 


Hours 


/Send -OLifeHours* data to RTC. 


■- STA 


SPDR 




JSR 


WaitSPIRdy 


/Wait for SPI data transmission to 


; 




/ complete . 


LDA 


Date 


/Send "OLifeDate" data to RTC. 


STA 


SPDR 




JSR 


WaitSPIRdy 


/Wait for SPI data transmission to 


1 




/complete. 


LDA 


Month 


/Send "OLifeMonth" data to RTC. 


STA 


SPDR 




JSR 


WaitSPIRdy 


/Wait for SPI data transmission to 


i 




/complete. 


LDA 


Year 


/Send "OLifeYear" data to RTC. 


STA 


SPDR 
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WaitSPIRdy 



/Wait for SPI data transmission to 
/complete. 



BCLR 
JSR 



0, PORTA 
_100usDelay 



-• f f - 
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*• setViscCalib.asm 



JNCLDDB ■AllPileaEQO.inc" 

xdst setvisccalib 

XDEF SVCCurPos 
XDSP VCalbMSD,VCalbDl,VCalbLSD 

TOtSP VCalbMSimc,VCalbD2RTC,VCalbDlBTC; 




SVCRightKoy , SVCLef tKey , SVCOpKey , SVCDovnXey , SVCEnterlCey 

ClrDispBuf. ClearDisp'-^j5 v 

DispHorae. Cur sorRisht. Cur sorBl in*. Writ eData 

Dispauf *jkjStfV<& 

LastKey, Setupltem. SetupItemLast 



t Define Constanta 



SetViscCalibScrn DC.B 
\i. DC.B 



l Define Variables 

VarSec SECTION 

SVCCurPos DS.B 1 

VCalbKSD DS.B 1 
VCalbOl DS.B 1 



j For tables and constants. 

Enter Vise Calib LineFeed 
Value - 000 



B i \GaOOPS\SN5\FHJQDlCVDoc. 
vcalbLSD dsTb T 
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; Code Section 



SetViscCalib: 
Ida 



beq 



Setupltem 
Setup! temLast 
C SVC 



JSR 
JMP 



C1__SVC: 



CMP 
BUS 
JSR 



JSR 

CJ SVC: "% 



;read value from RTC 
SVCDispInit 1 initial display 
R_SVC 

LastXey 
•Right 

a_svc 

SVCRightKey 
R SVC 



•Left 

a sve >gv 

SVCLeftKey^ 
R_SVC 




9 >, B 



JSR 
JMP 

CMP 
BNE 

• JSR 

JSR 



•UP 

C3-SVC 
SVCDpKey 
RjSVC 

•Down 
C4_SVC 
SVCDownKey 
R SVC 



R_SVC 

SVCBnterKey 



SVCRead 
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* SVCDispInit * 



SVCDispInit: 




JSR 




LDX 


L_SVCD 


LDA 




STA 




CMP 




BEQ 
INCX 




JMP 


C_SVCD: 




Ida 
sta 




add 




Idx 




sta 




Ida 




sta 
add 




incx 




sta 




Ida 
sta 




add 

incx 




sta 








. , JSR . 



JSR 
JSR 
JSR 
JSR 

LDA 
STA 



ClearDisp 
«0 

SetViscCalibScrn. X 
DispBuf, X 
•PormFeed 
C SVCD 



L_SVCD 
VCalbMSDRTC 

vcalbMSD 

• $30 
#33 

DispBuf ,X 

VCalbDIRTC 
vcalbDi 

• $30 

DispBuf ;'x; ; :.. 

VCalbLSDRTC 

VCalbLSD 

#$30 

DispBuf, X 

WriteData 

ClrDispBuf 

DispHome 

CursorBlinx 



1 Transfer caned test data from 
; ROM to Display Buffer. 



j USD of Oil Tenjp Limit :-'k;.,.S : 
/MSD* of Oil Temp Limit 
/(currently always 1) 
/convert to ASCII V 
/index into DispBuf 
/and store in buffer 

1 middle -.digit of date to be displayed 
/middle digit of data to be displayed 
/convert to ASCII 
/move to next digit 
/and store in buffer 

/LSD of data to be displayed 
/LSD of data to be displayed 
/convert to ASCII 
/move to next digit 
/and store in buffer 

/Write Display Buffer data to 
/Display. 

/Clear Display Buffer. 
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SVCCursorHm 



JSR 
DECX 



•SVCCursorAdd 
CursorRight 
L SVCC 



4^. t V 
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svcxeys.asa 



inclode •AllPilesSQU.ine" 



SVCUpKey 

SVCDownXey 

SVCLeftXey 

SVCRigbtXey 

SVCEnterXay 

VCalbDgtaRTC, VCalbMSORTC. 



4- 



VCalbLSDRTC 



XREF 
XREF 



S8SP 



WRDDRAMAdd 
DDRAMAdd 

SVCCurPoa fcf „*. " 

vcalbMSD , VCalbDl, vcalbLSD 



XRBP> * v 
i Define Variables 



WRNumber , vri teNibble 
CursarRigbt /cursor Le ft 

t * RTCCRegXni t , Mai tSPiRdy 
t li_10puaDeiay- 



-GetDateTime 



VarSec 

vcalbDgtsRTC: 
VCalbMSDRTC DS.B 
VCalbDlRTC DS.B 
VCalbLSDRTC DS.B 
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/4 digits containing Viscometer 

i Calibration entry stored one digit /byte 
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• SVCDpRay 



JSR 
JMP 



JSR 
JMP 



JSR 

R SVCU RTS 



• OX_SVCMSD • 

OXSVCMSD: 

^STA~%> *' 




LDA 
CMP 
blo 



SVCCurPoa 
DDRAMAdd 
WRDDRAMAdd 

VCalbMSD 
flSVCKSDLrnt 
C SVCUXMSD 



CLRA 

STA 

JMP 



vcal bMSD 
ci svcosmsd 



C SVCUKMSD: 

INCA 
STA 



E : \GROOPS\ENG\PRODlC\Documentation Lis tings \SVCkeys . 
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Cl_SVCUKMSD : 
LDX 
JSR 

JSR 

RTS 



* UK_SVCD2 
; UK_SVCD2 : 



VCalbMSD 
WRNumber 

Curs or Left 



;***Retum**» 



STA 
JSR 



LDA 
CMP 



CLRA 

STA 

JMP 



SVCCUTPOS 
DDRAMAdd 
WRDDRAMAdd 

VCalbD2 

«SVC_D2Lrat 

C_SVCD2 



VCalbD2 
Cl SVCD2 



t C_SVCD2 : 



INCA 

; STA ; ; " VCalbD2 

' 'J 

I a_SVCD2 : ; ■ . *£\ x,^ 1 

t ,LDX' f \\ VCalbD2 

i v v -> JSR '■ '■ > WRNumber 

, \JSR CursorLefi 

; 

; RTS 



LDA 

STA 
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WRDDRAMAdd 



JSR 

LDA 
CMP 

blo 

CLRA 
STA 



INCA 
STA 



Cl SVC0XD1: 
LDX 
JSR 



UK.SVCLSD * 



C.SVCUKLSD: 

INCA 
STA 

C1_SVC0KLSD: 
LDX 
JSR 



VCalbDl 

»SVC_DlLmt 

C_SVCUKD1 



VCalbDl 
Cl_SVCOKDl 



VCalbDl 

VCalbDl 
WRNumber 

CursorLeft 



•Return* 



LDA 


SVCCurPoa 


STA 


DDRAMAdd 


JSR ^ A 


WRDDRAMAdd 


LDA ' %. 


vcalbLSD 


CMP 


«SVC_LSDLmt 


blo 


C_SVCUKLSD 


CLRA 




STA 


VCalbLSD 


JMP 


Cl SVCUKLSD 



vcalbLSD 
VCalbLSD 
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i k 
jsr CursorLeft 

BTS i***Retura*»* 
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SVCDownXeyi 
LBA 
CMP 



JSR 



DK SVCMSD: 

LDA 
STA 
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SVCCurPos 
•SVC_MSD 
C_SVCD 

DK_SVCKSD 
R SVCD 



•SVC.D2 
d SVCD 



DK_SVCD2 
R_SVCD 



•SVCDl 
C3_SVCD^ 

DRjSVCDl 
R^SVCD 

J 

•SVC_LSD 
RJ5VCD 

DK_SVCLSD 



,1 
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JSR 



NROORAMAdd 



LEA 
CMP 
bhl 
bis 



VCalbHSD 
tSVC_MSDLmt 



CjSVCDKMSD 

VCalbMSD 
C2 SVCDKMSD 



C_SVCDKMSD; 

CKP 



OAll Zeros 
Cl_SVCDKMSt> 




/•••Return** 



i 
i 
t 


; * 
LDA 
'STA 
JSR 


svccurPos 

DDRAMAdd 
WRDORAMAdd 


i 
* 
i 
i 


LDA 
CMP : 
8KB 


VCalbD2 

8SVCJD2Lmt 

C_SVCD2 


i 
i 


DEC 
JMP 


VCalbD2 
C2_SVCD2 


|C_SVCD2: 
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1 CMP 


t> All Zeros 


1 BNE 


C1_SVCD2 


I LDA 


#SVCD2Lmt 


/ STA 


VCalbD2 


; JMP 


C2_SVCD2 


I CI SVCD2 : 




» " DEC 


vcalb02 


/ C2 SVCD 2 : 




; LDX 
/ JSR 


VCalbD2 
NRNunber 


/ JSR 


CursorLeft 


; RTS 


•Return*** 


* DKSVCD1 * 




DK SVCDl: 




LDA 


SVCCurPoa j.:. 


STA 


DDRAMAdd >A If % •• 


JSR 


KRDDRAMAdd *-/ 


LDA 


VCalbDl 


CMP 


#SVC DILmt 




Ca_SVCDKDl 




, f C_SVCDKDZ 


. DEC^*\ 


VCalbDl 


JMP".. 


C2__SVCDXD1 


C SVCDKD1 : 




CMP 


•AllZeros 


BNE 


C1_SVC0KD1 


Ca_£VCDKDl : 




LDA 


•SVCDlLmt 


STA 


VCalbDl 


JMP 


C2jSVCDKDl 


0_SVCDKD1 : 




DEC 


VCalbDl 
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C2_SVCDKD1 : 
LDX 
JSR 

JSR 

RTS 



• DK SVCLSD 



DK^SVCLSD: 

LDA 
STA 
JSR 

LDA 
CMP 

bhl 
bis 



C_SVCDKLSD: 
CMP 
BNE 

Ca_SVCDKLSD: 
LDA 

JMP "jj 

C1_SVCDKLSD :'.* 
DEC 

C2_SVCDKLSD: 
LDX 
JSR 

JSR 

RTS 



VCalbDl 
WRNumber 



CursorLeft 



SVCCurPos 
DDRAMAdd 
WRDDRAMAdd 

VC&lbLSD 
#SVC_LSDLmt 
Ca SVCDKLSD 
C J 



VCttlbLSD i 
C2 SVCDKLSD 

ttAllZeros ; '' 
Cl_SVCDKLsb 

8SVC_LSDLmt 

.-.^VCalbLSD 
C2_SVCDKLSD 

VCalbLSD 

VCalbLSD 



CursorLeft 
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SVCLefUCey: 
LEA 



L_SVCL: 



LDA 
STA 



C1_SVOj ; 

JSR ^d 5 ^' Cursor!* f t 
DEC > 8 SVCCurPoa 

RSVCL HSl\ 



SVCRightKey 




{••♦Return*-* 



SVCRightKey: 
LDA 
CMP 



JSR 

mc 



SVCCurPoo 

#SVC_MSD 

C_SVCR 

Cursor Right 
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JHP 


R_SVCR 


C.SVCR: 


CMP 
BITE 


•SVC_LSO 
d_SVCR 


L_SVCR 


LDX 
JSR 
DSOC 

STA 


8SVC_LSD - SVC_KSD 
CursorLeft 

•SVC MSD 

SVCCurPoa 




JKP 


R_SVCR 


C1_SVCR 
R_SVCR: 


JSR 
INC 


CursorRight 
SVCCurPoa 



SVCEnterKey « 



SVCEnterKey: 
JSR 

JSR ^ '. 




;; RTCCReginlt {Initialize SPI for Real Time Clock. 

HRVCtoRTC <write Viecoaity Calibration value 
:.. JF : entries to RTC User RAM. 



WRVCtoRTC * 



BSET 


0, PORTA 


/Assert RCT chip select. 


LDA 


flVCalbMSDW 


, Write RTC -VCalbMSD" memory address. 


STA 


SPDR 




JSR 


WaitSPIRdy 


/Wait for SPI data transmission to 






; complete . 


LDA 


VCalbMSD 


i send "VCalbMSD* data to RTC. 


STA 


SPOR 
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LDA 
STA 
JSR 

LDA 
STA 
JSR 



WaitSPXRdy {Wait for SPI data transmission to 

; complete. 
VCalbDl {Send "VCalbDl* data to RTC. 

SPDR 

WaitSPIRdy /Wait for SPI data transmission to 
{ complete. 

{Send -VCalbLSD" data to RTC. 



VCalbLSD 
SPDR 

WaitSPIRdy 



{Wait for SPI data transmission to 



SCLR 
JSR 



0,F 

_100usDelay 
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TNCLCDE "AllFilesEQU . inc" 



Alarm, Alarmlnit 

OLCurrentHi , OLCurrentLo ^f^" 
OTAlarmSta, QHAlarniSta.OVAlarnSta.CLAlt^ 




VarSec SECTIONS 
OilLifeBuf ■ DS.D 



SOTLRead,SOLRead ~' k *| * 

OilTempBuf .OVRatio jp v -*r.s^ 

OilRBBuf . OilHHTarpBuf . OilRHTable2 5 , OllRHTe^CompTbl 
OTLmtDgtsRTC. DegFMSDRTC. DegFOlRTC, DegFLSORTC 
OLif eDgtsRTC, OLif eMSDRTC. OLif eDIRTC. OLif eLSDRTC 
OLif eHoura , OLi f eDate ; OLlf eMohth. OU f eYear 
Hours, Date. Month ^ Year t 
OilZtem, MenultenVf biirm 
Alaraffimer h ^^ N ^ 
OetDateTinie-^oi, » 



/Calculated In OilLifeAlarm from current RTC 



















; value 


OTLlmit 


OS 


B 






QHLlmit 


DS 


B 






OVLimit 


DS 


B 






OLLimitHi 


DS 


B 






OLLimitLo 


DS 


B 






OLCurrentHi 


DS 


B 






OLCurrentLo 


DS 


B 






OTAlarmSta 


DS 


B 


1 ,oil 


temperature alarm status 


OHAlarmSta 


DS 


B 


1 /oil 


humidity alarm status 


OVAlarmSta 


DS 


B 


1 ,oil 


viscosity alarm status 
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OIAlarmSta DS.B 1 


$ oil Ufa alarm status 


AlarmSta DS.B 1 


j combined alarm status 


OVRatioTmp DS.B 1 


i local variable 


OllRHCorap DS.B 1 


# temp compensated Rel Humidity - local 




; variable 


OLlocalHi DS.B 1 


i local work variable 


OLTocalLn DS.B 1 




KonthLength DS.B 1 


i local values 


tmpl DS.B 1 




tmp2 DS .B 1 




OilRHDAlarm DS.B l 


ivalue used to trigger alarm 


OBAlarmFilterCnt DS.B 1 





Code Section 




JSR 
JSR 
JSR 
JSR 

LDA 
ORA 

ORA > 

ora; 
& 'a-.sta* 



OilTempAlarm 
OilVis. ' 
OilRBAlarm- 
|lii£eAia^ 

OTAlarmSta 




^0% ? ,6vAlarmSta 
;? % ' OIAlarmSta 



iRedYelLSDMask 
AlarmSta 



bis 


#8 

C6_Alann 


;no alarm conditions so set PA3 and quit. 


f 

Ida 

bio 
clr 


AlarmTimer 
012 

C4_Alarm 
AlarmTimer 


j get counter to be used for 1 min timeout 
; this timer incremented every 5ms in 
i TimerOC and counts up to 12 then stops 
i counting. 


Ida 
sta 


tOillTN 
Menu! tern 


t turn on oil display to show error 
i condition 


Ida 


OTAlarmSta 
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08 






bis 


Cl_Alarm 






Ida 


#OilTempITN 






sta 


Oilltem 


»set oil display to Oil Temp 




CI Alarm: 








Ida 


OVAlarmSta 








•8 






bis 


C2_Alarm 






Ida 


#OilViscITN 






sta 


Oilltem 


;set oil display to Oil Temp 




C2 Alarm: 








Ida 


OHAlarmSta 






cmp 


»8 






bis 


O Alarm 






Ida 


ttOilRKITN 






sta 


Oilltem 


/set oil display to Oil Temp 




C3 Alarm: 








Ida 


OIAlarmSta 








«8 






bis 


C4_Alarm 






Ida 


#OilLifeITN 






sta 


Oilltem 


/set oil display to Oil Temp 




C4 Alarm: 








Ida 


PORTA ,? 






and 


ftLEDMask 


/zero out previously stored LE 


d bits 


ora 


AlarmSta 


/set new LED bits 




STA 


PORTA I 






bra 


RlAlarm 






C6 Alarm: t 








bset H/v 


: ^3 » PORTA 


/turn green LED on 




bclir 0 


4 « PORTA 


j turn yellow LED off 




; bclr*"* . •*' 


5, PORTA 


/turn red LED off 




R Alarm: 








RTS 








♦ OilTempAlarm • 








OilTempAlarm : 








JSR 


SOTLRead 






LDA 


DegFLSDRTC 






STA 


OTLimit 


/Oil Temp Limit. 
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DegFDlRTC 
#10 



LDA 
LDX 
KUL 
ADD 
STA 

SUB 

bus 
Ida 
bra 
Ca OTAlarm: 



bis 
Ida 
Cc_OTAlarm : 
TAX 
LDA 
STA 

LDA 
LSRA 



ldx 
oail. 



OTLimit 
OTLimit 



DegFMSDRTC 
#100 



OTLimit 
OTLimit 



; (OTLimit) in degree P 



«DegF_to_COS _ v 

Ca_OTAlarm /test against lower limit of look-up 

, table W^,,^ 



/test against upper/ limit of look-up 



#o 

Cc OTAlarm 



Cc_OTAlarm 
•49 ., 

' 

DegF_to_c,x , 

OTLimit ,> -^H OTLimit) in degree C 
OilTempBuf 

;f / (A) ■ Current temperature in 

'•«.>, /degree C. 
§100" 

■f jmul by 100, then div by 128 to adjust 

/ index for OpAmpGain-S . 



rora ■«S!> 
vrorx 
rora 
rorx 
rora 
rorx 
rora 

rora 

rora 

rora 
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CMP 
BLS 



CjOTAlarm: 

ADD 



d OTAlarm: 
CXR 
BSET 

C2_0TAlarm: 
R_OTAlarm: 



* OilViscAlarm 

OilViscAlarm: 
CXR 

l 

LDA . 
eta 

■neg 
CI OVJQarm: 
Ida 
CMP 
bis 



OTLimit < 
C_OTAlam t 

OTAlarmSta /Oil Tetrrp exceed limit. 
RedLKD, OTAlarmSta 



OS 

OTLimit 
0_OTAlarm 

OTAlarmSta 
YelLED. OTAlarmSta 
C2 OTAlann 



OTAlarmSta 
GreenLED, OTAlarmSta 



& RETURN 



• f Ik 

/■It 

-OVAlarmSta ; clear any previous alarms 

. OVRatio 
OVRatioTtnp 
&._OVAlarm 
OVRatioTtnp 



OVRatioTtnp 
81S 

C3 OVAlarm 



lOVLimit to turn red LED on 



BSET , 
JMP • 
C3 OVAlarm: 
Ida 
CMP . 
bis 
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RedLED, OVAlarmSta /turn red LED on 
RjOVAlarm 

OVRatioTtnp 

810 /OVLimit to turn yellow LED on 

C3 OVAlarm 
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BSET 
JMP 

C3_0VAlarrai 

BSET 

R OVAlarm: 



tion Listings VA1 arm. asm - 05/30/1999 13:30:48 
turn yellow LED on 



YelLED. OVAlarmSta 
R OVAlarm 



GreenLSD , OVAlarmSta 



CBAlarmSta / clear any previous alarms 



OilRHBuf 
OilRBTable35.X 



OilRHTempBuf 



OilRHTernpCompTbl , X 




STA 

LDA 
ADD 
CMP 
BLS 
LDA 
SUB 
CMP 



OilRHOomp 



oilRHDAlaxm^/The raw oil relative humidity 
81 <j^^'i reading from A/D Converter is 
OilRSCom^^; stored in oilRHBuf and the relative 
ClO^OBAlarm / humidity temperature sensor 
OilRHDAlarm ; reading from A/D converter is 
♦jKF'V- 81 /stored in OilRHTempBuf. Temperature 
:>1 OilRHComp /compensated relative humidity is 



BPL^ % i , x^ > ;:C10_OHAlarm /stored in OilRHComp. The content of 
a*^| OHAlarmPilterCrit /OilRBComp is copied to OilRHD only 

"*«t*j}-< * C30_OHAlarm / if (OilRHComp) is changed by more than 
~%s. ^ 1% * ad (0RHDPilt 6x0161 »10. Every time 

/the subroutine is executed, 
/ (ORKDPilterCnt) is cleared if 
/ (OilRHComp) is not changed for more than 
/+/- 1% from (OilRHD) , otherwise 
;j{ ORHDFilterCnt) is incremented by one. 
/When (ORHDFilterCnt) reaches ten, 
/ (OilRHD) is updated and output to the 
/display and (ORHDPilterCnt) is cleared. 



C10_OHAlarm: 
LDA 
CMP 



OHAlarmPi 1 tercnt 
810 
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BPL 


C20 OKAlarm 




INC 


OHAlarmFilterCnt ; (ORHDFilterCnt) < 10. 


JMP 


C30_OHAlarm 


/(ORHDFilterCnt) ♦ 1. exit and no 






/output to the display. 


C20 OKAlarm: 






cut 


OHAlarmFilterCnt / if (ORHDFilterCnt-lO) , Clear 


LDA 


OilRHComp 


, (FilterCnt) and update OilRHD. 


STA 


OilRHDAlarm 




C30_OKAlarm: 






LDA 


OilRHDAlarm 


/get "filtered" compensated oil rel 


CMP 


880 


/ humidity reading OHLimit to turn 


bis 


C40 OHAlarm 


/ red LED on 


BSET 


RedLED.OHAlarmSta /turn red LED on 


JMP 


R_OHAlarm 




C40 OHAlarm: 






Ida 


OilRHDAlarm 




CMP 


870 


/OHLimit to turn yellow LED on 


bis 


C50_OHAlarm 




BSET 


YelLED, OHAla 


rmSta /turn yellow LED on 


JMP 


R_OHAlarm 




C50 OKAlarm: 






BSET 


GreenLED , OHAlarmSta 


R OHAlarm: 






RTS 


? ... 














* OilLifeAlarm * 


h 




OilLifeAlarm: 






JSR 


SOLRead 


/get date/time when oil life was set 


JSR 


GetDateTime 


/get current date/time 


v* 'v. clr 


OLLimitHi 




clr 


OLLimitLo 




clr 


OLCurrentHi 




Clr 


OLCurrentLo 




LDA 


OLi f eLSDRTC 




STA 


OLLimitLo 


/Oil Life Limit. 


LDA 


OLifeOlRTC 




LDX 


810 




KUL 






ADD 


OLLimitLo 




STA 


OLLimitLo 
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LDX 
MUL 
ADD 
STA 
TXA 
ADC 



LDA 
jsr 



bhi 
add 



sta 

l 

Ida 
j B r 

bhi 
add 

Ca_OLAlarm: 
sub 
sta 

LDA . 

■ a' sta/ 

Ida 
jsr 



OLifeMSDRTC 
8100 



OLLimitLo 
OLLimitLo 



OLLimitHi 
OLLimitHi 



OLifeYear 

BCDtoHex 

890 

C_OLAlarm 
8100 



OLifeYear 

Year 

BCDtoHex 

890 

Ca^LAlarm 4 ; 
8100 



jsr 
sta 



jsr 
sub 



/ OLLimitHi /Lo now contain 8 of days of 
/ oil lif centered thru keyboard. 



/if year is < 90, assume year is > 300 
/add 100 so math is right for year 199 



v.* , 

-y v , V 

OLifeYear 
OLifeYear 

OLifeMonth 

BCDtoHex 

OLifeMonth 

Month 
BCDtoHex 
OLifeMonth 
OLifeMonth 

OLifeDate 

BCDtoHex 

OLifeDate 

Date 

BCDtoHex 
OLifeDate 



;** /if year is « 90, assume year 
. r #*i is > 3000 

'? V, a dd 100 so math is right for year 
• 4 / 1999 
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IEs ' OLlfeDate , 

i , ' 

/now calculate the current oil life: 

I CiCurrentBi/Lo - <OLifeYear*365> ♦ (OLifeMonth* 30) ♦ (Olif eDate) 



clr 
clr 
Ll_OLMartn: 
Ida 
beq 
bed 



Ida 
adc 
sta 
dec 
bra 
L2_OLMarm: 
Ida 
beq 
Ida 
sub 
sea 
Ida 
■be 
sta 
inc 
bra 

i 

Cl_OLMarm : 

Ida u 1 

L3_OLMarmt ^< 
£ >r V Ida 
beq 



sta 
Ida 
adc 
sta 
dec 
bra 

L4_OLMarm: 

Ida 



OLCurrentLo 
OLCurrentBi 

OLifaYear 

Cl_CLMarm 

L2_OLMarm 

OLCurrentLo 

•$6d 

OLCurrentLo 
OLCurrentBi 
SI 

OLCurrentBi 
OLifeYear 

Li_ 



OLifeYear 
d_OIAlarm 
OLCurrentLo 

OLCurrentLo 
OLCurrentHi> 

OLCurr en tHi<V * 
OLifeYear^ 
lJ._OLAlarrn 

*iJ0 

MonthLength 

OLifeMonth 
C3_OLAlarm 
L4J>LMarm 
OLCurrentLo 
MonthLength 
OLCurrentLo 
OLCurrentHi 
•0 

OLCurrentBi 
OLifeMonth 
L3_OLMartn 





OLifeMonth 



Page 9 



E : \GROOPS\KNO\paODlC\Docixrni ion Lis tings \Marra .asra - 05/20/1999 11:20:48 



beq 
Ida 
sub 
sta 
Ida 
she 
sta 
Inc 
bra 
OjOLAlarm: 
Ida 



QjOXAlaro 

OLCurrentLo 

MonthLength 

OLCurrentLo 

OLCurrentBi 

to 

OLCurrentBi 
OLifeMonth 
L«j0LAlara 

OLlfeDate 
C4 OLrUartn 



OLifeOate 



OLCurrentBi 
*0 

OLCurrentBi 
C4a_OlAlarm 

OLifeoate 



i this value can be neg -\« 



mow have current Oil Life in days 



Ida 
sub 



OLifeOate 
OLCurrentLo 



,,this*i value can be neg 

OLCurrentBi^. 
• 0 4 

OLCurrentBi^ jnow have current Oil Lite in days 
,now compare current Oil -Life to Oil -Life -Limit entered by operator. 



Ida 
she 
sta 



C4a_OLMarm : 
Ida 

sub-, 
sta "i 

- : ^sbc* 
4f Bta 



CLR 
BSET 
bra 
/C5_OIAlarm: 
Ida 
CMP 
bhi 



OLLiad f I/> 
, : OLCurrentLo 
OLCurrentLo 
OLLimj *" B< 
OLCurrentBi 
OLCurrentBi 



j OLCurrentHi / Lo-OLLitni tHi / 
I Lo- OLCurrentHi / Lo 



OLMarmSta 
RedLED, OLMarmSta 
R_0LMarra 

OLCurrentBi 
00 

C6 OLMarm 



/branch is double-byte subt not neg 
j Oil Life exceed limit so set Red LED 
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Ida 


OLCurrentLo 


; CMP 


#5 


i bhi 


C6_0LMarm 


; CLR 


OLMarmSta 


t BSET 


Ye 1 LED, OLMarmSta 


; JMP 


R_OLMarm 


;CS OLAlarm: 




CLR 


OLMarmSta 


BSET 


GreenLED, OLMarmSta 


R OLAlarm: 




RTS 




• BCDtoRex * 




.•convert contents of a-reg from BCD to Bex and return value in a-reg 


sta 


tmpl 


and 




lsra 


. , =• % " 


lsra 




lsra 




lsra 




Idx 


•10 \,r\&- 


trail 




sta 


tmp2" ; 


Ida 


tmpl 




»$0f 


add 1< 


tmp2 


rts 




• AllLEDOff * 




MarmXnit: 




BSET 


GreenLED. PORTA 


BCLR 


YelLED, PORTA 


BCLR 


RedLED, PORTA 


RTS 




; Define Constants 
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Const Sec 



SECTION 



t 140 Degree F to 199 Degree P 



DegF_to_C: 



DOB 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



61 
61 
62 
62 
63 
63 
64 
64 



66 
66 
67 
67 
68 
68 
69 
69 
70 
? 1 

71 
72 
72 
73 
73 
74 
74 
75 
76 
76 

77 
77 
78 
78 
79 
79 
80 



i 140 deg F 
;141 deg F 
;142 deg F 
,143 deg F 
j 144 deg F 
;145 deg F 
;146 deg F 
,147 deg F 
,148 deg F 
jl49 deg F 

1 150 deg F 

1 151 deg F 

1 152 deg F 
;153 deg F 11 
,154 deg F 
;1S5 deg F r ^ ; 
ii56 deg F 

:; 1157 deg F 
•f';lS8 deg F 
*,iS9 deg F 

il60 deg F 
;161 deg F 
jl62 deg F 
,163 deg F 
ji64 deg F 
ji65 deg F 
;166 deg F 
,167 deg F 
;168 deg F 
,169 deg F 

;170 deg F 
,171 deg F 
;172 deg F 
,173 deg F 
,174 deg F 
,175 deg F 
,176 deg F 
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DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 

DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 



81 
83 

82 
83 
83 
84 
84 
85 
86 
86 
87 
87 



88 
89 
89 

90 
91 
91 
92 
92 
93 



i«nd of DegF„to_C table. 



177 d*g p 

178 deg P * 
17$ deg p 

180 deg P 

181 deg P 

182 deg P 

183 deg p 

184 deg P 

185 deg p 

186 deg p 

187 dog P 

188 deg P 

189 deg P 

190 deg P 

191 deg P 
292 deg F 

193 deg P 

194 deg P 

195 deg P 

196 dag.rf 28 ^ 

197 deg'F &% - 
198^deg^P.^ 
19 9 'deg P 
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Timer inc. a«m 



ETCLDDB •AllFilesEQO.inC 
rs-CLCDE -viscometerTable.inc" 



Timer, TimerCCtEn, ViscRd 
ViscRdTO. ViscOTiming, ViscRdCntr 
ViBcPulieAveLo, ViscPulseAveBi 
AlarniTiraer, BlinkPF 
Vi s cTercpAve t TtnrTtup 
BourLast, ViacStatufl * 
Motor Spaed, Motor SpeedLow.|Mota£SpeedMed, 
VCalibValue 




ViscAD, AD_SPISetup^ViscBuf 
ViseTempAD, ViscTenfcriuf, OVRatio 

Division, DlvidendLo\ v DividendHi, Divisor, QuotientLo, 
QuotientHi* % 



KotorSpeedLow f EQO ^ 
MotorSpaedMad ''EQO,. " 
MotorSpeedHigh EQO 
IntPerSecLow "^BQO 
IntPerSecMed EQO 
/IntPerSecMed EQO 
/IntPerSecMed EQO 
IntPerSecHigh EQO 



Define variables 



1 
2 
3 

180/16 
360/16 
225/16 
225/16 
720/16 



t counter used to count interrupts 
j follows Divide-By-16 counter. 



VarSec SECTION • SHORT 
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VisCADToS" 



DS.B 
DS.B 
DS.B 



DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 



DivByifiCntr 
CntToiSec 
MotorOi x T mr 
MotorCoiupTime 
MotorOffTine 
AlanrtTimer 
ViscRdTO 
ViscOTiming 
ViscRd 

ViscPulaeAveLo DS.B 

ViscPulseAveHi DS.B 

ViscRdCntr DS.B 

ViscBufAve DS.B 

ViscBufLast DS.B 

ViacBufiTol DS.B 

ViscBufHi DS.B 

ViscBufLo DS.B 

ViscTempBufHi DS.B 

ViscTempBufLo DS.B 

ViscTempAve DS . B 

ViscTempOf ffoet DS.B 

ViscTerapTblPtr DS.B 

CalcCnt DS.B 



Calccnt2 



DS.B 



DS.B 



Vi8CMathLO^ ; ^E bSiB 
Vi s cMathHi ^$T-*«mTb 
Vises tatua %. DS.B 
Mo tor Speed. DS.B 
IntPerSec 
DebugOnly 
VCalibValue 



DS.B 



DS.B 



VCalibVolts DS.B 
BlinXFF DS .B 



■,A ■- 
VJ 



/used both to count » of additions in 
l^CklcAveTenp subr 

/used both to count • of additions in 
% CalcAveViscPres Bubr 
/used both to count 9 of additions and 
/ 9 of Shifts in CalcAveTemp subr 
;only put hare temporarily so variable 
•t 



/Low, Mad, High values, 
j Low, Med, High values, 
/used only for debug 

t Viscosity Calibration Value - determined 
; by Voltage /Temper a ture readings taken for 
/ each assembled rail. Variations may be 
; due to orifice variations, intake/outlet 
/ valve variations, pressure gauge variation 
; and thermocouple variations. 
/Viscosity calibration Voltage - calculated 
/from VCalibValue 

./Blink Flip-Flop. Osed to blink "alarmed" 
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1 messages 



LDA 
AND 



BEQ 
OSR 

': 

RTS 



SBit6Mask /Load ACC with $40(bit6 mask) . 

TmrSR /Test Output Compare Flag bit in Timer 

/ Status Register. ■ 
R_Tmr /Branch if Output Compare intr is not 

/ active. 

TimerOC /Call Timer Output Compare routine. 



TimerOC • 



/internal processor clock is xtal/2 (for 4MHz Xtal, internal clock • 2MHz) 
/Internal 16 -bit Timer increments at internal -clock/4 (2MHz/4».5MKz) . 
/Period of 16-bit Timer is l/.5MHz«2usec. 

/For 5ms translation of TCMP line use $9C4. $9C4«2S00(l/500k>«5ms 

/For 160Hz at TCMP. T-l/180-5 . 556ms or transistion every 2.778ms. 

/ 1.386ms (SOOKHz) • 694 cycles • $2B6 - use for MotorSpeedHigh 

/ 2.222ms CSOOXBz) « 1111 cycles • $457 - use for 

/ MotorSpeedHigh - 225Hz ■ 225 steps/sec 

/ 2.77BrasI500XHz) • 1389 cycles - S56D - use for 

/ MotorSpeedMed * 180Hz . 180 steps/sec 

/ 5.556ms (sookhz) m 2778 cycles m SADA - use for MotorSpeedLow 
/Output Ccqpare Output level is toggled for every interrupt. 
/NOTE: write oCRegH byte first t h en write OCRegL. Ortherwise it 

won't work. The reason is that the interrupt is 
/ activated as soon as a byte is written to OCRegL. 



TimerOC: 

bset 
LDA 



flBitOMask 



/debug only 

/Load ACC with $oi(bito mask) . 
/Toggle Timer Control Register 
/OLVL bit (bito), i.e. toggle TCKP pin 
/ output level. 
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jsr 


Ca 1 cAve vi s cTemp 


/Average vise tenqp reading - returns 






/ value in ViscTempAve 


Ida 


MotorSpeed 






SMotorSpeedLow 




bne 


C2_TmrOC 




LDA 


OCRegL 




ADD 


ftSDA 




STA 


TmzTmp 




LDA 


SSA 




ADC 


OCRegH 




STA 


OCRegH 




LDA 


TmzTmp 




STA 


OCRegL 




Ida 


« IntPerSecLow 




sta 


intPerSec 




bra 


C6_TmrOC 




C2_TmrOC: 






Ida 


MotorSpeed 






*MotorSpeedMed 




one 


C4jrmrOC 




LDA 


OCRegL 




ADD 


tt$6D 




STA 


TUuTlup 




LDA 


»$s e-v 




ADC 


OCRegH 




STA 


OCRegH '^V<£; 




LDA 


TmrTmp ^ 




STA 


OCRegL '% 




Ida 


-c ffincPerSecMed 




sta 


s ^IntPerSec 




bra 


■= -„ s '* C6__TmrOC 




C4 TmrOC: /■ 


MotorSpeed 










•MotorSpeedHigh 




bne:. 


C5 TmrOC 




LDA 


OCRegL 




ADD 


«$B6 




STA 


TmrTmp 




LDA 


992 




ADC 


OCRegH 




STA 


OCRegH 




LDA 


TmrTmp 




STA 


OCRegL 




Ida 


BintPerSecHigh 




sta 


IntPerSec 




bra 


C6_TmrOC 
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5/20/1999 14:54: 



OCRegL 
8$6D 



STA 
LOA 
ADC 
STA 
LDA 
STA 
Ida 
•ta 
C6 TrarOC: 
Ida 

bio 
tana 
clr 
iac 
clr 
clr 

C8JTmrOC: 

cup 
bhi 
J«r 

CX0_TmrOC: 

LDA 



INC 
JMP 
CISJTmrOC: 
CLR 

LDA 
u'cMP 
blo 
CLR 
Inc 



bhi 
inc 

C20jrmrOC: 
Ida 



•55 

ocRegH 
OCRegH 
TmrTmp 
OCRegL 

8lntPerSecMed 
In t Per Sac 

ViscOTiming /This timer only > 0 when Vise pressure 
83 i threshold. Mait at least lOOa^after.i 

CIO TrarOC * exceeding threshold before" averaging . 
CSJTmrOC ^J^S^Sfe* 
CalcCnt2 / clear counter used in "CalcAveViscPres 
ViscOTiming ^ "A J? 

ViscBufHi -# 
viseBufLo 



% e 

sure pulse lasts at least 600ms 



812 lassu 
ClOJTmrOC j>. 5 

CalcAveViscPres 

DivByi6Cntr- /TmrSOMSCntr counts 0-17. each count 
#17 >>r^represents 2.778 msec (this was 9 for 

CISJIterOC *i] 5ms timer) interval between two output 
DivByl6Cntr / compare interrupt. 

.* ft * 

^H^DiyBylSCntr i Clear TmrSOMSCntr, (TmrSOMSCntr) reaches 99 



S&y CAtTolSeC 
IntPerSec 
C25JTmrOC 
CntTolSec 
BlinkFF 



ViscRdTO 
8125 

C20_TmxOC 
ViscRdTO 



/For 1 -second time interval. Used check 
; against current num of interrupts /sec 



/used by OilMexxu to blink display when 
/ Alarm is present 



zl min timer used in Alarm 

/ counts up to 60 and stops to keep from 
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B : \GR0OPS\ETC\PRQOlC\Docume_ 
bhi 
inc 

C25_TtnrOC: 
inc 



on Lis tings \Timer Inc . 

C25jTmrOC / rolling over. 
AlarmTimer 

CntTolSec 



i - 05/20/1999 14:54: 



Ida 



C28 TmrOC: 
J«r 



blo 
Ida 
sta 



ViscS tatus 

•RdOrder /check to see if Bead has been requested 
C28JTmrOC / by Vis come cerOn 

CalcTempOffset /calculate Viscometer table offset based 
i on temperature. 



Hot or Co n t r ol 



ViscS tatus 

•PurgelnProg 

C30_TmrOC 

ViscRdTO 
•120 

C33_TmrOC 
#OilPurged 
Vises tatus 
C33 



i switches motor on/ off and controls its 
/ direction. ^.jS^ 



4* ' 



LDA 
CMP 
blo 
Ida 



ViscS tatus 1st If ; temperature was out of range, 

>|r\r\aWempOf f set • will change ViscStatus 
•RdinProg >. to 8TempOut0fRgn - so check status again 
a 3 TmrOC ; to see if viscosity should be measured. 

^ |yi6CRdTO 
. ^8120 

j ^cssjrmroc 

STimeout 





ViscStatus 


C33_TmrOC: 




jmp 


RJTmrOC 


C35_TtnrOC: 




INC 


ViscOTiming 


LDA 


ViscBuf 


AMD 


8Bit7Mask 


BMZ 


C45 TmrOC 


LDA 


ViscBuf 


CMP 


8V18CADTH 


BPL 


C45 TmrOC 
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CLR 
JMP 


ViscOTiming 
RJTmrOC 




C4S TmrOC: 






LDA 


ViscOTiming 




CMP 


813 




BEQ 


C50 TmrOC 




JMP 


RTtnrOC 




CSOJTmrOC: 






TST 
bne 


ViscRdCntr 
C60_TmrOC 




CLR 


ViscPulseAveLo 




CLR 


ViscPulseAveHi 




n»c 


ViscRdCntr 




JMP 


RjrmrOC 




C60 TmrOC: 






LDA 


ViscRdCntr 




CMP 


81 




BEQ 


C70JTmrOC 


/Calc tolerance by dividing by 16. 


Ida 


ViscBuf Last 


lsra 






lsra 




•if 


lsra 






lsra 






sta 


ViscBufTol 

A. .. 


/Tolerance allowed between pressure 
/ pulses is 1/16-6% 


LDA 


ViscBufAve "t. 


/get current buffer averate 


SUB 


ViscBuf Last 


/subt buffer average from last pulse 


BCC 


..C65JTmrOC 


/Branch if the result positive. 


NEGA 




/ else make positive. 


C65 TmrOC: 






CMP 


: ~*ViseBufTol 


/ViscBufTol - ViscBuf Last/16, Max. dif 






/ between previous and current output 






/ allowed. This is for filtering out noise 


BMI 


C70_TmrOC 


/ Branch, within tolerance. 


CLR 


ViscRdCntr 


/ Out of tolerance, clear ViscRdCntr 


bra 


C95_TmrOC 




C70_TmrOC: 






~ LDA 


ViscBuf Ave 


/ViscBuf is A/D reading of the 


STA 


ViscBufLast 




ADD 


ViscPulseAveLo 


/Viscometer Output. Each 


STA 


ViscPulseAveLo 


/measurement is added to 


CLRA 




/ViscPulseAveLo and ViscPulseAveHi. 


ADC 


ViscPulseAveHi 


/At the end of eigth measurement. 
/ViscPulseAveLo and ViscPulseAveHi 


STA 


ViscPulseAveHi 


/are right shifted 3 times to get 
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LEA ViscRdCntr /the average in ViscPulseAveLo and ViscRd 

CMP . 88 »The number of pulses averaged. 

BEQ C75_TmrOC 

INC ViscRdCntr 

bra C95_TmrOC 
C75 TmrOC: 

I,SR ViscPulseAveLo /B pressure pulses averaged so shift 

LSR ViscPulseAveHi ; right 3 time to divide by 8. 

BCC C80_TmrOC 

BSET 7, ViscPulseAveLo /get LSBit from Hi into Lo. 
CSOJTmrOC: 

LSR ViscPulseAveLo A 

LSR ViscPulseAveHi 

BCC C85 TmrOC 

BSET 7. ViscPulseAveLo /get LSBit from Hi into Lo. 
C8S_TmrOC: 

LSR ViscPulseAveLo £ 

LSR ViscPulseAveHi * t r 

BCC C90_TmrOC % 

BSET 7. ViscPulseAveLo /get LSBit from Hi into Lo. 

C90jrmroC: v . 

LDA ViscPulseAveLo ,j* % 

STA ViBCRd _ 

LDA 8Rd0K . <: ..'V 

STA ViSCStatUS o **; 

jsr GetOVRatio \.. /calculate Viscosity Ratio - value 
v "tt , stored in OVRatio 

CLR ^ViscRdCntr 

bra "*£ RJTmrOC 

C9SJTmrOC: v^- - ; 

Ida \»MotorCompTime 

sta ' ' MotorDirTmr 
R TmrOC: 

~ bclr 2, PORTA /debug only 

rts ; " Return " 



* Motor Control 



/Motor Control subroutine controls the Viscometer stepper by turning it on 

/ a off and changing its direction. The control signals are: 

; uC PortC bit 3 -> 5804 OE (Output Enable) pin. 0 -motor on/ 1 -motor off 

/ uC PortA bit 6 -> S804 DIR (Direction) pin. 0 -compress ion/ 1- retract 
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0 -Switch engaged ( cylinder retracted) /l -cylinder not retracted 



HotorOontrol t 
Ida 



beq 

brclr 
bset 
bclr 
bra 
C5 MotC: 
Ida 



CIO MOtC: 
Ida 
Bta 
clr 
bclr 
bclr 
Ida . 
•tar;* 
Ida ^ 
•;' 8 ta 
bra ; 
Ida 
sta 

C30 MotC: 

Ida 

sta 

clr 

bclr 

bclr 

Ida 

sta 

Ida 



Vises tatua 
f purge XnProg 
C30_MotC 

Vises tatua 
SRdlnProg 

caojtotc 

7,PORTD,CS_MotC 
6/ 
2. 

csojtotc 

Vises tatua 
•PurgeOrder 
CIO KotC 



j set direction to 
; turn motor on 





epurgelnProg "* 
vises tatua \ " 
MotorDirTtar 

. &6, PORTA i set direction to "compresion" 
v ^MotorOompTime /set length of compression stroke 



•SO 

MotorOffTime 

C30_MotC 

«$80 

DebugOnly 



/set total cycle (time to start of 
t next compression stroke) 



SRdlnProg 
Vises tatus 
MotorDirTtnr 

3 , PORTC j turn motor on 

6 , PORTA j set direction to "centres ion" 

925 

MotorContpTitne .jset length of compression stroke 
• 90 
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sta 

Ida 
sta 

C30_MotC: 
INC 
LDA 
CMP 

bio 
bset 

Ida 

bhs 
Ida 
add 
sta 

C40_MotC: 



CMP 

bio 

bclr 
bclr 



CS0_MOtC: 

brclr 



*bs>t 

C60_MotC: 
rts 



MotorOffTime 
•500 

DebugOnly 

MotorDirTtnr 

MotorDirTtar 

MotorCompTime 

C40_MotC 

6, PORTA 

DebugOnly 
• 590 

C40_MotC 

VisCRdCntr 

•590 

iy 



I set total cycle (time to start of next 
i compression stroke) debug 



i For timing OS (Output Enable) signal 
i to 5804 motor driver and also to 
i control DXR (Direction) signal to 5804. 
j set motor direction to "retract • 



/debug 
i debug 
/debug 
/debug 



MotorDirTtnr 




6,PORTA,C60 MOtC 
7 iPORTD. CSOJtotC 
3 , PORTC 



/For timing OB (Output -Enable) signal to 

5804 motor driver;. Later to be used to 
Ltrol DIR( Direct ion) signal to 5804. 
/set^motor direction to "compress tend 
^and^urn^mbtor on afterer a wait tim/ 
^when*cylinder sat at fully retracted 



/if motor direction is "retract 1 .check 
/ proximity switch. 

/if switch output high, then not fully 
/ retracted so do nothing, 
/but if switch output is low, turn motor 
/ off after. 



CalcAveViscTemp 



/ Subroutine to calculate the ave temp at the Viscometer i 
/ adds 256 values and then divides by using upper byte (Hi) of result. 
/ Average done every 1.2 sec (2S6*Sms) and stored in ViscTempAve. 

CalcAveViscTemp : 
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CalcCnt 
CS0_Calc 



zinc local counter 

/calculate average when counter rolls over 
/ (after 256 times) 
LDA ViscTempBufHi /use upper byte of sum - this is same as 

/ dividing by 256 

brclr 7. ViscTempBufLo, CI 0_Calc /if msb of Lo is set, round up 



/ViscTempBuf is A/D reading of the 

/Viscometer Output. Each 

/measurement is added to ViscTempBufLo 

/and ViscTempBufHi. At the end of eigth 

/measurement, ViscTempBuf Lo 

/ and ViscTempBufHi 

/are right shifted 3 times to get 



) Calc: 




STA 


ViscTempAve 


clr 


ViscTempBufLo 


clr 


ViscTempBufHi 


3 Calc: 




LDA 


ViscTempBuf 


ADD 


ViscTempBufLo 


STA 


ViscTempBufLo 


CLRA 




ADC 


ViscTempBufHi 


STA 


ViscTempBufHi 



R_CalC: 



ur 



' Retn 



CalcTempOffset 



/Calculate the offset value into the lookup table OVTempTbl which is used 
/ to calculate oil viscosity ratio. Returns offset in "ViscTempOf f set " 
/ If tempera ture out of range, sets Vis cS tatus -STempOutOf Rgng and 
/ ViscTempOf fset-0 - '-r^gp 
CalcTempOffset: 



LDA 

ldx 

mul 

stx" 

sta 

Ida 
sta 



ClOjCTO: 
LSR 
LSR 
BCC 



ViscTempAve /use average of 256 ViscTempBuf samples 

U«$PF (from ADConvert) is voltage into A/D 

. C3 0__cro / pegged out? If so set temp-out -of -range 

SGainFactor / factor used to calculate temperature in 

/ tenths of degC. 

ViscMathHl 
ViscMathLo 



•6 

Shi f tCnt 



ViscMathLo 
ViscMathKi 
C20 CTO 



/use S hi f tCnt. to count number of shifts for 
/ divide. 
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BSET 7, ViscMathLo 

ShiftCnt /CalcCnt is used both to count up to 256 for 

C10 CTO / adding and to count number of shifts for 
/ divide. 
ViscMathLo 

STotalOffset /subtract temp value of 1st table entry 
, (in .1 degC) 

ViscMathHi 

ftO /double byte subtract 

ViscMathHi 
ViscTempTblPtr 



tax 
Ida 
sbc 
sta 
sta 



brai C30_CTO /check for neg result of 2 -byte subtract, 

cmp #1 /upper byte should be 0 or 1 which pts to 

/ OVTempTbl or OVTempTbl +256 > 
bhi C30_CTO /if greater than 1, then out of range 

cmp #1 ~ /check y: 

bne R_CTO /if - X. then using OVTempTbl +2 56 

cpx STableEndlndx /table 1 covers IS . OdegC to 50.0 

/ (i.e.- 500-150 - 350) 
bio R CTO t A/D output should be less than 172 for 

/^35.5degC 
C30_CTO: %f 

/remove next two instructions; for "testing if temp-out-of -range check 
/ not wanted '^^'^ 

Ida BTempOutOfRng 

sta ViscStatus 



ldx 

8t3tV ! 

rts 



•o /i 

ViscTempOffset 



* CalcAveViscPres 



Subroutine calculates the ave pressure in Viscometer chamber by adding 
64 values and then divides by shifting result left 2 times and using 
upper byte (Hi) of result. Result stored in ViscBufAve. 



CalcAveViscPres : 
inc 
Ida 



CalcCnt 2 
CalcCnt 2 
065 

CS0 CalcV 



/inc local counter 
/calculate average 



when counter -64 
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8 1 \GR0OPS\BNO\PKJ0OiC\Docuawntatioa Li s tings \Timer Int . ai 
calculate 



5/20/1999 14:54: 



ESI 

ltl 
1«1 

BOC 
B5ET 
C2 CalcV: 
Isl 

lsl 

BOC 
BSST 

C4 CalcV: 
LDA 
brclr 
inca 

00 Calcv : 
St* 
clr 
clr 
bra 

cso_calcV: 

LCA 



ADC 
STA 
R_CalcV: 

rta 

**•*•*••••****< 
* TimerOClEn 
•***•*••• **** * - 

TimerOClEn: C, 
CLZ „ 
BSST 
RTS 



R _Calcv 

VUcBufHi 
ViscBufLo 

C3 CalcV 

0, ViscBufHi 

ViscBufHi 
ViscBufLo 
C4_CalCV 
0, ViscBufHi 



; Average calculated by mul by 4 and then 
; using upper byte. 



ViscBufHi 
7.ViseBu£Lo.C10 CalcV 



ViscBufAve 
ViscBufLo 
ViscBufHi 
R_Calcv 

ViacBuf 

ViscBufLo 

ViscBufLo 

ViscBufHi s 
ViscBufHi 

R 'ft 



/use upper byte of sum j^fchis is 
i same as dividing by. 256. .if msb of 
i Lo is set, rouad^u^^^^ 

G° 

i ViacBuf ^S^A/D ^reading of the 
/Viscometer 'Output. Bach 
/ measurement "is added to ViscBufLo 
; and ^ViscBufHi. At the end of eigth 

., ViscBufLo and ViscBufHi 
j/arVright shifted 3 times to get 

i • Return • 



, Enable hardware interrupt system. 
OCIEBit .TmrCR /Enable Timer Output Compare interrupt. 



• GetovRatio • 

• Subroutine to calculate the Oil Viscometer Ratio 

• values used to determine the relative viscosity value: 

*- Offset between the "reference" temperatures used to generate 

• pressure/ tables and the temperature reading {in mV) coming out of the 
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• S94Chip. The output of the 594 ideally should be lOmV/degC 

• (so 190mV«i9.0degC> . Temp at DAQ was 20.6degC 

OpAmpGain which amplifies the output of the 594 Chip so that the A/D 

* uses more of its 0-SV range. OpAmpGain of 10.2 measured on Vise ckt 

• (using 68. IK feedback resistor) 
• 

•Example Calculation is as follows (for Op-Amp-Gain»io.2> : 

* x » (ADValue) (vref /256) (1/OpAmpGain) (100) (degC) 

• x - (ADValue) (S. 00/256) (1/10.2) (100) (degC) 

* x- (ADValue) (50/256) - (ADValue) (12. 4M)/2S6 -(ADValue) (12.4/64) (degC) 

* x- (ADValue) (124/64) (.IdegC) 

•Using the calculations above with OpAmpGain-10 .2 the GainFactor-124 

•The look-up table generated at the end of this program is >n ^tenths "of a 
*deg ^ 



GainFactor 



ECU 124 



/This is NOT the OP AMP Gain ^{calculations 
show in notes above fx 



TableStartTemp KQO 164 
TablesndTemp EQO 500 



/Temp in units of/; IdegC ,(455 
jTemp in units of ;-. IdegC 



4S.5degC) 



TableEndlndx EQO TableBndTemp-TableStartTemp-256 

4& Iv *&» 

TempOffset EQU 015 /This correction (in .IdegC) is difference 

/between DAQ reading and output of 594chip 

O^ilvithtsame calibrator input. This was done 
because 594 pot couldn't be adjusted to 
^.give 250mV with calibrator at 25degC - so 
I pot was set to give 270mV. 

EQU TableStartTemp+TempOffset 

ViscTempOf fset /value calculated in CalcTempOf f set 

DebugOnly /debug 
ViscTempTblPtr 

GetOV^lO t if Ptr*l, then using OVTempTbl+256 
OVTempTbl , X 
CetOV_20 



TotalOffset 

OetOVRatiot* r % 

Idx^f*. 
tTstx V * 

Ida', 

bne 

LDA 

bra 
GetOV_10: 

LDA 
GetOy_20 : 
*"sta 

STA 

Ida 
ldx 



OVTempTbl+256 . X 



DebugOnly 
Divisor 



vCalibValtie 
ViscRd 



/debug 



/this value is determined by look-up table 
/ external to software. 
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mul 
stx 

brclr 
Ida 
sub 
bec 
Ida 
bra 
Getov 30: 
"Ida 
add 
bec 
Ida 

Getov_40: 



LDA 
sta 
add 



VCalibVolts /this is in millevolts 
0,VCalibValue.GetOV_30 /check bito. if bit 0-0, 



ViscRd 
VCalibVolts 
GetOV_40 
SO 

GetOV_40 

ViscRd 
VCalibVolts 
GetOV 40 
#$FF 



ViscRd 

DebugOnly 

VCalibValue 



, then add VCalibVolts 
/is bito-l, then subtract 

/if sunt results in neg number, set ViscRd-0 



/is bit0-0. then add 

/if add results in number >256, 



set ViscRd»0 





sta 


DebugOnly 


/debug 




STA 


DividendHi 






CLRA 








STA 


DividendLo 




: 


CLR 


DividendLo 






JSR 


Division 






LDA 


DividendLo 






LSLA 








STA 


DividendLo 




i 


LSL 


; DividendLo 






LDA 


DividendHi 






ROLA 








STA 


DividendHi 




i 


R0L 


DividendHi 






LDA 


DividendLo 






LSLA 








STA 


DividendLo 




t 


LSL 


DividendLo 






LDA 


DividendHi 






ROLA 







/debug * ' . 

/use calib value from VCConvert2lnt to 

/ correct pressure voltage 
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STA 


DividendHi 


j ROL 


DividendHi 


LDX 


#5 


LDA 


DividendLo 


MUL 




sta 


DividendLo 


stx 


TtnrTmp 


; 

LDX 


US 


LDA 


DividendHi 


MUL 




add 


TtnrTtnp 


sta 


DividendHi 


/ 

LDA 


»51 


STA 


Divisor 


JSR 


Division 


Ida 


DividendLo 


sub 


#100 


STA 


OVRatio 


R_GetOVR: 




RTS 





/save upper byte in temporary location 



/add in upper byte from above 



/this makes a ratio of <100 be displayed i 
t neg percentage 



Nominal Oil Viscometer Output v . s . Temperature Table 
■ViscTable" is a macro that ^interpolates the intermediate points 
between the points in ; its argument . 
"ViscTable vx, Tl. V2. T2- 

VI - voltage from pressure transducer in mV for reading 1 
Tl - Temperature reading in units of .IdegC for reading 1 

( e , g .1 6 . 5degC»l 6 5 ) 
V2 - voltage 'from pressure transducer in mV for reading 2 
T2 - Temperature reading in units of .IdegC for reading 2 
^%(e^g- 18.5degC»185) 



ViscTable 


4160, 


164, 


4010. 


175 


ViscTable 


4010, 


17S, 


3790. 


189 


ViscTable 


3790, 


189, 


3570, 


208 


ViscTable 


3570, 


208, 


3440. 


223 


ViscTable 


3440, 


223. 


3310, 


239 


ViscTable 


3310, 


239, 


3190, 


2S3 


ViscTable 


3190, 


253, 


3090, 


270 


ViscTable 


3090, 


270. 


2990. 


286 
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OS/30/1999 14: 54 i 



ViicTmJola 
VitcT»tole 
VilcTabl* 
vi»cTablo 
VlsCTable 
ViBCTable 
ViicTablc 
VitCTablo 
VlteTable 
VlscTable 
ViicTable 
ViacT&ble 



3990, 386, 
3910. 301. 
3830. 318.* 
3750, 334. 
3690. 350, 
3640. 365. 
3580, 381. 
3550. 394. 
3490. 410. 
3450, 433. 
3400. 453. 
3370, 480. 



3910. 303 
3830. 31K 
3750. 334 
3690. 350 
3640. 365 
3580. 381 
3550, 394 
3490. 410 
3450. 433 
3400. 453 
3370, 480 
3360. 500 
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ation Listings\SOTLRead.i 



05/30/1999 15:01: 



INCLCDS "AllFilesEQa.lnc* 



SOTLRead 

OTLratDgteRTC 4 
DegFMSDRTC , DegFDIRTC , DegFLSBRTC 

RICCReglnit.WaitSPIRdy 




RTCounter 



Define Variables 



VaxSec 



SECTION 



CTLtntDgtsRTC: 

DegFMSDRTC DS.B'4 ,~ * 

DegFDlRTC ^DS."B N ^^ 1 

DegFLSBRTC ' OS -B"V^ 1 



Code Section 



SOTLRead JSR 
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KTCCReglnit j Initialise SPI for Real Time Clock. 
GetOTLmtDgtsRd 

; •••Return"* 
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GetOTLmtDgtsRd 



GetOTLmtDgtsRd: 
BSET 
LDA 
STA 
LDX 



LDA 



JSR 

LDA 
CMP 
BNE 
INC 
JMP 



waitSPiRdy 

SDegFMSDR 
RTCounter 
CjGetOTLD 
RTCounter 
L GetOTLD 




LDA 
STA 
LDA 
CMP 
BEQ 
INCX 
INC 



OTLmtDgt sRTC . X'7 
ODegFLSraJt?!..^ 
RTCountVr ^ 
RJSetOTLD^. 

.« \ 
RTCounter 
JMP ^ ^ LjSetOTLD 

R_CetOTLD:>^ ^ ^ 

c BCLR f ^> 0 , PORTA 

RTS ;***Retum* 
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SOLReed.aam 



INCLCDS •AlXFllesBOa.lnc- 

XD5F SOLRead 

XRSF RTCCReglnit.waitSPIRdy 

XREF RTOounter 

XRSP OUfeDgtaRTC.OUfeYear 



Code Section 



SOLRead JSR 

RTS - 
• GetOLDgtsRd 



RTCCReglnit /initialize SPX for 



:'-lG«tOLDgt«Rd 



Real Time Clock. 



; ***Return*** 



GetOLDgtsRd: 

BSST 0, PORTA 

LEA tOLifeMSDR 
STA. '■ RTCeunter 

LDX tO 

L GtttOLDRd: 
IDA 
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CGetOLDRd: 
IDA 



047 

BKQ 

IKCX 

XKC 

JMP 



VaitSPIRdy 

•OUfeMSSR 

RTOounter 

CjBetOLDRd 

RTOounter 

LJBetOLDRd 



OLifeDgtrtTC.X 
tOLifeYearR ♦ 1 



RTOounter 
L GetOLDRd 



BCLR 0, PORTA 
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*• SVCRead.asm 



INCLUDE •AllPilesRQD.inc" ^'fej V 

XDKF vCConvert2lnt «^ \} v 

XBS7 RTCCReglnit, WaitSPlRdy 
XRBP RTCounter 

XRBP vCalbDgtsRTC, VCalibValue . 

cooesec SECTION 

• SVCRead * ^ 
*•«•****•••••••*•. «*v 

SVCRead; A - ■ ; 

JHfVE '"l, RTCCReglnit /Initialise SPI for Real Time Clock. 

^^> ;; >" 
"&JSR' GetVCDgtsRd 
•KTS * " Return • 

* GetVCDgtsRd * 

/Get viscosity Calibration value from Dallas RTC. 

i Pirst value sent to RTC must always be "read- addr. After that the 
/ *sta SPDR" is used only to initiate the shift register exchange 
, between RTC t 6805 so contents of A-reg is immaterial. 

GetVCDgtsRd: 
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BSBT 0, PORTA 



•VCalbMSDR /RTC read addr for KSD of Vise Calib value. 
SPDR i Send Read -Addr to RTC. 

WaitSPlRdy iwait for SPIP flag in SPSR to be set to 

; show trans complete 
SPDR /this inat causes register exchange between 

I RTC addr 6 6805 SPDR. 
waitSPlRdy /wait for SPIP flag In SPSR to be set to 

i show trans complete 
SPDR /now data from Dallas RTC is in 6805 SPDR. 

#0 

VCalbDgtsRTC, X i so store it into 6805 data S\ f ^r <>< 

SPDR /this inst causes register ^exchange, between 

l RTC addr & 680S SPDR. 
waitSPlRdy /wait for SPIP flag in, SPSR to) be set to 

, show trans complete 4 * 1 ''' "^3^ 
SPDR /now data from Dallaa^RTC is in 6805 SPDR. 

VCalbDgtsRTC. X i so store it|into 6805 data. 

SPDR /this^inst causes register exchange between 

/^RTCyaddr & 6805 SPDR. 
WaitSPlRdy /wait : f or SPIP flag in SPSR to be set to 
. i show trans complete 

tO/now data from Dallas RTC is in 6805 SPDR. 



IDA 
STA 
JSR 

STA 

JSR 

LDA 

ldx 
STA 

STA 

JSR 

LDA 

ldx 

STA 

STA 
JSR 
LDA 

ldx 

STA 

BCLR f v ^0; PORTA 
^RTS 




vVCalbOgtaRTCX / so store it into 6805 data. 



* VCConvert2Int * 

VCConvert 3 int : 

Ida VCalbDgtsRTC 
ldx ftlOO 



/get KSD 
/multiple by 100 



sta VCalibValue 

Ida VCalbDgtsRTOH /get Dl 

ldx 010 /multiple by 10 



S:\GROOPS\ENC\PRODlC\Docuraentation Listings\SVCRead.asra - 05/21/1999 07; 42; 3 
mul 

add VCalibValue 

add VCalbDgtsRTC+2 /get LSD 

sta VCalibValue 

RTS l " Return * 
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Display 



INCLCDE •AllPileaEQO.ine- 

XDST WriteNihble 

jds? Displnit, ClearDisp, WriteData, NRDDRAMAdd, 

XDBP DispBuf. DispBuf 2, ClrDisp. Ln2AdOS. Ln20S. LineiAdd 

XDST ClrDispBuf . writeDataQS, WrieeCmdL, writeCmdS Sj. 

XDSP DispHome, Cursor Right, CuriorLeCt, CursorBllnJtY 

XDBF CuraorOff , DORAMAdd 

XRET HaltSecDelay, _100us Delay, _10msDelay. , ^jk£ii3^ > ■ 

XRKF DecASCII 



Define variables 



VarSecl section 



DispBuf: DS.B 
Di8pBu£2: DS.B 
IM20S DS.B 



DispTtnp DS.B jS 

BBRAMAdd DS.B *^ >' 

/ Define Constants 




ClrDispDat DC.B 
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/Starting address of RAM 

./Display Buffer, to hold characters 

\Sp£*/Of f set for DDBAM line2 address 
Y k^in "Ln2AduS" routine. The offset 
i only applies to the lower address 
i nibble . 



; For tables and constants. 



LinePeed 
/The string to be displayed on 
/linel of the Display in DispTest, 



/The string to be displayed en 
/lins2 of the Display in DispTet. 
; "ClrDispDat" is for clearing the 



B : \GRDUPS\BHQ\FRODlC\Doc 



nation Listlngs\Dlsplay.a 



i - OS/21/1999 08:06:4 



t ffifliSOtOtttfOISOt 

I • SUBROUTINES • 



ClrDisp : past clear display routine • 



ClrDisp JSR 



LDX 

LEA 

STA 

CMP 

BEO 

XNOC 

JMP 

JSR 

JSR 



; (DO RAM address counter) -500, 
i points to first character of 
/linel (without shift). 



•0 

ClrDispDat. X 
DispBuf .% 
•FormFeed 
C_ClrD 

L_ClrD 
WriteData 



/Transfer caned test data "from -ROM 
i to Display Buffer. ^'^fc^* 




t write Display Buffer data to 
tOisplayL), ^ 

i (DO RAM' address counter) -$00, 
j points v to* first character of 
/linel {without shift) . 
••Return*** 



* ClearDisp: Clear Display Routine 



ClearDisp 

T''\lJ)£% ftClearai 

Stsr writeCradL 

LDA iClearLo 

JSR WriteCradL 



j Clear Display, DD RAM address 

/«> 0. 



/•••Return*' 



* Dispinit: Display Initial izatioto Routine 
Displnit JSR 



EalfSecDelay /Delay for 300 mill i sec. No data 

. /should be transferred to/ from the 
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LDA 
JSR 

LDA 
JSR 


«PuncSet8Bit 
WriteCmdL 

SFuncSetSBit 
NriteOndS 


/display within IS ms after 
/powerup. 

/Function Set Command: 8 -Bit IF. 
/Just follow the Display User's 
/Manual for 4 -Bit IF init. Needs > 
/4.1ms wait. See "WriteCmdL". 
; Needs > lOOus wait. See 
/■WriteOndS". 


LDA 

JSR 


#FuncSet8Bit 
WriteOndS 




LDA 
JSR 


«FuncSet4Bit 
Writeonds 


/Function Set Command: 4 -Bit IF. 


LDA 
JSR 
LDA 
JSR 


SFuncSeCHi 
WriteOndS 
SFuncSetLo 
WriteOndS 


/Function Set Command: • 
/4-Bit IF, 2-line, 5x7 dot . \ 


JSR 


DispOFP 


/Display OFF. 


JSR 


ClearDisp 


/Clear display. 


LDA 
JSR 
LDA 
JSR 


SEntryincHi 
WriteOndS - - 
«EntrylncLo ; 
WriteOndS 


/The DD RAM address increment by 1 
: /when a character is written 
/into the DD RAM. no shift. 


JSR 

RTS . \ 


DispON '* 


/Display ON, cursor and cursor 

/ blink OFF. 

/•••Return*"* 








• DispOFP: Turn oFP Display Rov 


itine • 


DispOPP LDA 
JSR 
LDA 
JSR 
RTS 


»DispOFFHi 
WriteOndS 

ODispOFFLO 

WriteOndS 


/Display OFF. 
/••'Return*** 


• DispON: Turn 


on Display Routine * 
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DispON 



LDA 
JSR 
LDA 
JSR 
RTS 



LineiAdd LDA 
JSR 
LDA 
JSR 
RTS 



sDispHi 
WriteOndS 
SDispLO 
WriteOndS 



ft$80 

WriteOndS 
ft$00 

WriteOndS 



JSR 
LDA 
JSR 
RTS 



9$CQ 

WriteOndS 
ft$00 

WriteOndS 



Ln2AdOS LDA 
JSR 
LDA 
JSR 
RTS 



#5C0 

WriteOndS 

Ln20S 

WriteOndS 



/Display ON, cursor and cursor 
/blink OFF. 



/ (DD RAM address counter) -$00, 
/points to first character of 
zlinel (without shift) . ■ % ■ 

/•••Return*** .. 



./{DD RAM address counter) -$40, 
/i/pbints to first character of 
x>/line2 (without shift) . 



/ (DD RAM address counter) 
/offset. 

/Offset - 0 - IS. 
/•••Return*"* 



WrlteOndL - Write command word to Display with 20ms delay. 
This routine is only for writting "Clear Display" 
and "Return Home" commands which require at least 
15.2ms of delay after one of the command is 
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STA 
LDA 


DispTtnp 
•BitlMask 


AND 


PORTC 


OKA 




STA 


PORTC 


KOP 
BSET 


3, PORTC 


NOP 
BCLR 


2. PORTC 


KOP 




JSR 


_iOasDelay 


JSR 


"lOmsDelay 



/ "WriteCmdL" is for witting 

j "Clear Display- and "Return Boom 

i commands which need is. 2 ma to 




• WriteCmdS - Krite command word ^to, Display with lOOua delay. • 

* This routine ia only fw writting any < 



which require only ^OuaTdalay a£ter a 
is written. 



AND it 



NOP 

BSET 

NOP 

BCLR 

NOP 

JSR 

RTS 



'. DispTop 
fBit3MasX 
PORTC 
DispTtnp 



2, PORTC 
2. PORTC 
_100usDelay 



/"WriteCmdS- is for writting 
; "Clear Display" and "Return Hi 
t commands which need 40 us to 



,B->1 
/E-*0 



/One hundred micros ec delay. 
;** "Return**" 



vritoData; Write Display Buffer data * 
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LDX 


00 


L_WriteData: 




LDA 


DispBuf,* 


CMP 


ftLinePeed 


BEQ 


CJWriteData 


CMP 


fPonnFeed 


BEQ 


RJNriteData 


. AMD 


•$P0 


JSR 


WriteMibble 


LDA 
LSLA 


DispBuf ,X 


LSLA 
LSLA 




LSLA 




JSR 


writeNibble 


XMOC 




JMP 


L_WriteData 



C_writeData-. 

JSR 



Line2Addj 



,¥rite Display Buffer data to 
j Display linel until "Linepeed" 
iis detected. 

i Branch, "SndOfLine- detected. 



j"FonoFeed a is detected, exit "the 
j subroutine. *4ktfi " 

i write upper nibble of the*^^ 
i character to Display. ; -^£^ v 

; prepare for writting lower nibble 
i of the character to. Display . 



i write, lower nibble of the 
^ ^character to Display. 

Y^Go'to get the next character. 

W 

, Completed sending linel data, set 
jDD RAN address counter to point 
i to the first character of line 2 



JMP II %-L WriteData 

R WriteData r> 

'RTS 



j Go to send Line2 data. 



WriteDataOS: Write Display Buffer data 
to Display with line 2 offset 



WriteDataOS : 
LDX 

L_WDataOS : 

LDA 
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00 

DispBuf ,X 



/Write Display Buffer data to 
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CMP ■ 


SLineFeed 


, Display linel until "LineFeed" 






j is detected. 


BEQ 


C_WDataOS 


/Branch, "SndOfLine" detected. 


CMP 


SFormFeed 




BEQ 


RJlDataOS 


j "FormFeed" ia detected, exit the 






; subroutine . 


AMD 


#$F0 


/Write upper nibble of the 


JSR 


WriteMibble 


/character to Display. 


LDA 


DispBuf ,X 


/Prepare for writting lower nibble 


LSLA 




;of the character to Display. 


LSLA 






LSLA 






LSLA 






JSR 


WriteMibble 


/Write lower nibble of the 






t character to Display. 


ZMCX 
JMP 


L_WDataOS 


/Go to get the next character. 


C WDataOS: 




/Completed sending linel data, set 


JSR 


Ln2AdOS 






/DD RAM address counter to point 






/to. the >f irst character of line2 


INOC 






JMP 


L_WDataOS . 


vjGo to send Line2 data. 


R WDataOS : 






RTS 




/••"Return""" 








• ClrDispBuf : 






ClrDispBuf : 






LDX 




/Clear Display Buffer, DispBuf, 


TXA 






L_ClrDB STA 


DispBuf ,X 




DICX 






CPX 


SDispBufLn 




BME 


L_ClrDB 




RTS 




j"* •Return* *• 


• WriteMibble: 


The Display is configured as 4 -Bit IF. • 
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A character is sent to the Display one *" 
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nibble at one time. 



WriteMibble: 






STA 


DispTtnp 


/•WriteCtndS" is for writting 


LDA 


SBitlMasX 


/"Clear Display" and "Return ! 


AMD 


PORTC 


/commands which need 40 us to 


ORA 


DispTtnp 


/execute. 


STA 


PORTC 


/Write Display DATA4-DATA7. 


BSET 


0, PORTC 


/RS -> 1 


BSET 


2, PORTC 


/S -> 1 


BCLR 


2, PORTC 


/E -> 0 , 


BCLR 


0, PORTC 


;RS -> 0 


JSR 


_100usDelay 


/100 microseconds delay. 


RTS 




/•♦"Return**" 



" DispUome 
DispRome: 

LDA 
JSR 
LDA 
JSR 



OHoraeHi 
WriteCmdL , 
ft Home Lo 
WriteCmdL 



RTS jf* ^ 

ft 

^v^i^ 

CureorRight * 



/•••Return*- 



CursorRight : 
LDA 
JSR 
LDA 
JSR 

RTS 



#$10 

WriteCmdS 
ft$40 

WriteCmdS 
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LDA 


ODRAMAdd 


GRA 


#8it7HM>: 


AND 


0$FO 


JSR 


WriteOodS 


LDA 


eaRMAdd 


LSIA 




LSLA 




LSLA 




LS1A 
JSR 


VriteOndS 


SETS 





lda ,i©ec*scii,' x 

AND A |f$F0 
JSR ;jk i^writeNlbble 



^'UjA' 1 -^ DecASCII, X 

s; LSIA 
LSXA 
LSLA 

JSR MYiceNlbble 



RTS 
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S i \GRODPS\EUe\PR001C\Docunienl 


.acicn Li«tings\Delay.asn /31/1999 15:42:13 


•* Mirny 


t 


i 
i 


XNCLDDS ■AllPilesEQO.ine" (<f®% \ 
XSSF lOOusDelay. lOmsDelay, Half SecDelay.'-OneSecDelay 


i Define variables 




varSec SECTION SHORT 
CntNumOfBus DS.B 1 


/Starting ^address of RAM 

i counter tor 'roincing nuntoex oi 
1 8^ microseconds . 
^VcounVer for counting number of 
i ib 0 ^microseconds . 
^Counter for counting number of 


Q^mmoOfj opus ds.6 x < 
CntNumOflOms DS.B l.y<S*&s 


CodeSec SECTION ;^ 




• lOOusDelay - One hundred 


I micro- second delay * 


lOOusDelay: 

LDA til 

STA CntNumOfSus 


» The system clock is running at 
il Hhz rate. It takes 100 microsec 


LSus : 

DEC CntMUmOfaua 


j to execute the whole routine. , 


BUS Laus 
KTS 


j »**Retum* •* 


**• Note: LDA, STA, DEC, BNB, R3 


rS take 3,4.5,3,6 cycles to execute. •** ! 
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_l0m*Delay - Ten millisec delay 



i Ten mil li seconds delay. 



_10msDelayt 

LDA #100 

STA CntNumOflOOus 

L_10ms JSR _l00usDelay /One hundred microsec delay. 

DSC CntNumOflOOus 

BUS L 10ms 

STS ~ »***Return*** 



BalfSecDelay - Half second delay 



•50 

CntNumOflOms 



• • ■ r-% 

/Half seconds delayt^ 
jCounter^t^jCounting nu 
/of 10; milliseconds . 
L HalfSecDelay: ^^^J* 

JSR _10msDelay ,Te^inilliseconda delay. 
DEC CntNumOflOms tf£b|.^$k^ 
BNB L HalfSecDelay^^ * 

^/•••Return*** 




HalfSecDelay 
LDA 

STA 



*^f.*?2sC*- 

**•***••**#*•**♦•••**•**• --- 

OneSecDelay -.One: second delay 



OneSecDelay-H, 

'LDA #100 



LjSecDly JSR 



_l0msDelay 

CntNumOflOms 

L_SecDly 



/Half seconds delay. 
/Counter for counting man 
/of 10 milliseconds. 
/Ten milliseconds delay. 



/••♦Return* 
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SPCR 


EQO 


$0A 


SPCRVal_AD 


SQO 


$51 


SPSR 


EQO 


$0B 


SPIP 




$01 


SPIFMaak 


EQO 


$80 



SQO $0C 



/SPI control register address. 
/SPI control register setup value. 
iSPI status register address. 

iSPX status register bit7, SPI Transfer Complete 
i Plag. 

/SPIFMask is for testing 8PZP 
i (bit? of SPZRegister SPSR) 

lis set. upon completion of data transfer with 
i external device. 

iSPI serial peripheral data I/O register address. 



# ROM Equates 



ROK3 SQO 
ROMTblConst SQO 



$20 lUser EFRCM-1, $0020-$004F 
$100 /User EPROM-2. $0100-$017F. ', 
$3000 ;BPROM for tables or constants ^T$3 000-$3SPF 




i Display Equates 



^C^l* 

•«* Note; The display operates in-^-Bit ^interface mode 

(use data* -DATA 7 bits). In thi'swda, high nibble data transferred 
first, followed by low nibble Jdata. 

ClearHi SQO $00 jf£t Clear .-.screen high nibble 
ClearLo EQO 910 £ ; Clear screen low nibble 

■gft- V ; V > Clear connand clears entire display and sets 
3 £ /Display Data RAM (DO RAM) address 0 in address 
' ' counter . 

EQO ~Vv$00 i Re turn Borne Command high nibble 
• EQO < $20 j Return Home Connand low nibble 

/Return Borne Conmand sets DO RAM address 0 in 

This command returns display to 



EntryZncHi EQO 
EntrylncLo EQO 
EntryDecHi EQO 
EntryDecLo EQO 
EntrylncSHi EQO 
Entry IncSlo EQO 



$00 
$€0 
$00 
$40 
$00 
$70 



EntryDecSHi EQO $00 



i its original position if it was shifted. 

i DO RAM contents do not change. 

/The DD RAM address increment by 1 when a 

; character is written into the DD ram. 

/The DD RAM address decrement by 1 when a 

i character is written into the DD RAM. 

/The DD RAM address increment by 1 when a 

i character is written into the DD RAM, and the 

; entire display shifts to the left. 

/The DD RAM address decrement by 1 when a 
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character is written into the DD RAM. and the 



EntryDecSLo 


EQO 


550 


DlspHi 


EQO 


$00 


DilrpLo 


EQO 


$C0 




SQO 




DispCLo 


EQO 


$so 


DispCBBi 


EQO 


$00 


DispCBLO 


EQO 


$F0 


DispOFFHi 


SQO 


$00 


DispOFFLo 


EQO 


$80 


Cursor SLHi 


EQO 


$10 


CursorSLLo 


EQO 


«?« 


CursorSRHi 




$10 


Cursor SRLo 


EQO 


$40 


DispSLBi 


EQO 


$10 


DispSLLo 


EQO 


$80 


DispSRHi 


EQO 


$10 


DispSHXo 


EQO 


$80 


FuncSetSBit 


SQO 


$30 


FuncSet4Bit 


EQO 


$20 


FuncSetBi 


SQO 


$20 


FuncSetLo 


EQO 


$80 


Une2AddHi 


EQO 


$40 


Line2AddLo 


EQO 


$00 


LineFeed 


EQO 


$0A 


FormFeed 


EQO 


- l< £ enr 
• » sac 


DispBufLn^';/ 


"eqo" 


•(..42 ' 


i I OMemT Equates 




Active 


EQO 


$FF 


Continue 


EQO 


$0C 


Inactive 


EQO 




All Ones 


SQO 


$FF 


All Zeros 


EQO 


$00 


Las toil Item EQO 


$03 



LastSetupItem EQO $05 



$ entire display shifts to the right, 
i Display on. 



i Display and Cursor ON, Blink OFF. 
/Display. Cursor and Blink all ON. 
i Display OFF. 

/Shift cursor to the left (AC 

i is decremented by one) 

/Shift cursor to the right (AC 

/is incremented by one) H\ 

/Shift the entire display to ttoS^frf^,'' 

/ left (Including the cursor) 

/Shift the entire display^ to\theS 

/right (including the cursor )^^ 

/Function Set. 8 -Bit if%?'^ 
/Function Set, 44-Bit IF 
/Function Set, 84 -Bit IF, 2 -lines, 
/53C7 dots .^*^^*jr- 

/SetsDD RAM address for line 2 
/ first > character. 

/To be tagged to the end of a line of characters 
j to be displayed as linel on the Display. 
/To be tagged to the end of a line of characters 
/ to be displayed as line 2 on the Display. 
/Display Buffer, DispBuf , length (in bytes) . 



/"Active" a flag indicates that 

/"Continue" indicates process is still in progress 

/"Inactive" indicates a process is not in progress 

/For setting a byte to $FF. 

/For setting a byte to $00. 

/Oil Menu items: 0, 1. ... LastOilltem. 

/When Oil Menu is selected Item ft --> 0. 

/Setup Menu items: 0. 1, ... LastSetupItem. 

/When Setup Menu is selected Item ft --> 0. 
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/ Vector Table 






/Keypad Equates 


- used in Menu subroutines 






















VectorTable EQU 


$3FF4 


/Vector table starting address. 


Enter 


EQO 


$44 


/Enter key key code. 




SPlVector 


EQO 


$3FF4 


/SPI vector, interrupt vectors starting address. 


Right 


EQU 


$42 


/Right key key code. 




SCTVector 


EQO 


$3FF6 


/SCI vector. 


Left 


EQU 


$41 


/Left key key code. 




TimerVector EQU 


$3FF8 


/Timer vector. 


Nextltem 


EQO 


$24 


/Nextltem key key code. 




IRQVector 


EQO 


$3FFA 


/IRQ vector. 


Down 


EQU 


$22 


/Down key key code. 




SWiVector 


EQU 


$3FFC 


/Software Interrupt vector. 


Up 


EQU 


$21 


/Op key key code. 




ResetVector EQU 


$3FFE 


/Reset vector. 


Setup 


EQO 


$14 


/Setup key key code. 












Oil 


EQU 


$12 


/Oil key code. 












DateTime 


EQO 


$11 


/Time/Date key key code. 




/ OilMenu Equates 












...... *: 




OilviscITN 


EQO 


$1 


/Viscosity item number in Oil Menu. 












Oil Temp ITN 


EQO 


$2 


/Oil Temp item number in Oil Menu. 


; Main Eguates 








OilLifelTN 


EQO 


$3 


/Oil Life Left item number in Oil Menu. 












OilRHITN 


EQU 


$4 


/Relative Humidity item number in Oil Menu. 


PORTA 


EQU 


$00 


/General purpose I/O port 




LastOillTN 


EQU 


$4 


/end of possible oil item values. 


PORTS 


EQU 


$01 


/Keypad Coll,2,3,4/Row4,3,2,l 












PORTC 


EQU 


$02 


/ Display RS , R/W, E , SPARE, OATA4 -DATA7 












PORTD 


EQU 


$03 


/SCI and spi rdi,tdo.mis6;mosi.sck.ss*(pullop) , 




i Equates 














/ NC.PD7 












DDRA 


EQO 


$04 


/Data direction. Port A (all output) 




SPCRVal_RT 


EQU 


$55 


/SPI control register setup value (in 8805) used 


DDRB 


EQO 


$05 


/Data direction. Port B (PB0-3 out,PB4-7 in) 










; for RTC 


DDRC 


EQO 


$06 


/Data direction, Port C(all output) 




RAMR 


EQU 


$20 


/Real Time Clock user's RAM read first byte 


DDRD 


EQO 


$07 


/Data direction, in, out, in, out, out, in, in, in 










/ address. 












RAMREnd 


EQO 


$7F 


/Real Time Clock user's RAM read last byte 


















; address. 












RAMW 


EQO 


SAO 


/Real Time Clock user's RAM write first byte 


/ Configuration option 












; address. 












RAKWEnd 


EQO 


$FF 


/Real Time Clock user's RAM write last byte 
; address. 


C9AOptReg 


EQO 


$3FDP 


/MC68HC0SC9A Option Register 


















/address. 




SecR 


EQO 


$00 














Secw 


EQO 


$80 














MinR 


EQO 


$01 




/ RAM 










MinW 


EQO 


$81 




; — 










HoursR 


EQO 


$02 




RAMI 


EQO 


$20 


/RAM Space: $002O-$00BF 




HoursW 


EQO 


$82 




RAMI End 


EQO 


$BF 


/RAMI ending address. 




DayR 


EQO 


$03 














Dayw 


EQO 


$83 














DateR 


EQO 


$04 




/ ROM 










DateH 


EQO 


$84 














MonthR 


EQO 


$0S 




ROM3 


EQU 


$180 


/User EPROM-3, $0180-$2FFF 




Monthw 


EQU 


$85 














VearR 


EQU 


$08 














YearW 


EQO 


$88 
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Hour Aim OH 



DayAlmflR 
DayAlmOW 

SecAlnlR 
SecAlmlW 



EourAlaUJt EQO 



soo 
bqo 

EQO 
BOO 
BQO 
EQO 
EQO 
SQO 

BQU 
BQO 
BOO SOC 
BQO SBC 



507 
587 
508 
588 
509 
589 
50A 



5 OB 
58B 



DayAlmlR 
DayAlmlW 



50D 
58D 
BQO SOS 
BQO 58S 



ControlRegR BQO 
ControlRegw BQO 
StatusRegR BQO 
StatusRegW BQO 
TrklChgR BQO 
TrklChgw BQO 

ClockEnd BQO 
Calendar End BQO 



507 
587 
510 

$90 

SU 
591 

2 



0* 




i Timerrnt Equates 

************ * SLs*^isit*? r 
TtnrCR ^f"=QO %$12 
TnurSR <t,EQO.> $13 
ICRegH v. " BQO 



ICRegL 

OCRegH 

OCRegL 

TmrCntrRH 

TtnrCntrRL 



BQO 
BQO 
BQO 
BQO 
BQO 



Sl« 

515 
$16 
$17 
818 
$19 



AltTmrCntrRH BQO $1A 
AltTtnrCntrRL EQO $1B 



TOIKBit 



EQO 



» Timer Control Register address. 
jTimer Status Register address, 
i Input Capture Register high byte address. 
/Input Capture Register low byte address, 
j Output Compare Register high byte address. 
/Output Compare Register low byte address. 
/Timer Counter Register high byte address. 
/Timer Counter Register low byte address, 
i Alternate Timer Counter Register high byte 
j address . 

/Alternate Timer Counter Register lew byte 
/ address. 

/Timer Overflow Interrupt enable - bits of Timer 
/ Control Reg. 
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BQO 



BitOMask 


EQO 


$01 


BitlMask 


BQO 


502 


Bit2Mask 


BQO 


$04 


BitlHatX 


BQO 


$08 


Btt4Mask 


BQO 


$10 


BitSMask 


BQO 


$20 


BitCMask 


EQO 


$40 


Blt7Mask 


BQO 


580 


ViSCADTH 


EQO 


100 



/ SetOTLimit Equates 



SOTLCursorAdd 




/Timer Output Compare Interrupt enable - bit 6 of 
/ Timer Control Reg. 

/Timer input Capture Interrupt enable - bit7 of 
/ Timer Control Reg. 

/Hack for blto of a byte. 
/Mask for biti of a byte. 
/Mask for bit2 of a byte. 
/Mask for bit3 of a byte. 
/Mask for bit« of a byte. 
/Mask for bits of a byte . 
/Mask for bit 6 of a byte. 
/Mask for bit7 of a byte. j£&. 

jViflcADTH-ioo is the Viscosity A/p' reading when 
/ the pressure sensor output is apr©x.v2.o V. 

/Viscosity pressure sensory output is square wave 

/ of aprox. 3 sec period "and; 50%^ duty cycle. If 

/ the output is gxeater^than 2.0 V for 0.5 sec, 

/ the value is measured es*one sajaple. There are 

/ total of eight^senples taken for each viscosity 

/ pressure measurement. The average value of the 

/ samples.! soused as relative viscosity pressure. 



S0TL_7_MSD 
S0TL_F_D1 

sotljmlsd 

DegFMSDLmt^^^iiQO 
OegmLmtHi% EQO 
DegFDILmtLo BQO 
DegFLSDLmt BQO 



/ SetOLife Equates 
SOLCursorAdd BQO 
SOLJ4SD 
SOL Dl 



EQO 5*6 
EQO 547 



/ (was 45) Hex addr in LCDisplay were digit 
/ will be displayed 

/Rex addr in LCDisplay were digit will be 
/ displayed 
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SOL LSD 



BQO 548 



SOC_KSDLmt EQO 9 
SOL DILrat BQO 9 

SOL~LSDl«t EQO 9 



/ SetViscCalib Equates 
SVCCUrsorAdd EQO $34 
SVC_KSD EQO 
SVC_D1 EQO 
SVC_LSD EQO 



54C 
$4D 
$4E 



/Hex addr in LCDisplay were digit will be 
/ displayed 



/used by SVCUrsorHtn to move cursor to 
; initial position. 

/ (was 45) Hex addr in LCDisplay were digit 
/ will be displayed 

/Hex addr in LCDisplay were digit will be 
/ displayed '«.»>*' 
/Hex addr in LCDisplay were digit will be 
/ displayed ^. *-j 



SVCMSDLmt 


EQO 9 




SVC~DlLmt 


EQO 9 




SVC_LSDLmt 


EQO 9 










_ f; '.-. /- ' 


/ SetDateTime Equates 












SDTCurAdd 


EQO 


$28 




MonthMSDLst 


EQO 


1 $ 


/upper limit of Most 


MonthLSDLat 


EQO 




^/ . value 


DateMSDimt ^ 


EQO 






DateLSDLmt * 


EQO 


-..9 




YearMSDLmt ' 


EQO 


9 




YearLSDUnt 


EQO 


9 




HourMSDLrat 


EQO 


1 




HourLSDLmt 


EQO 


9 




MlnMSDlmt 


EQO 


S 




MinLSDlmt 


EQU 


9 




MontfaMSDAdd 


EQO 


540 


/Display position (in 


MonthLSDAdd 


EQO 


541 


i used in LCDisplay 
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DateMSOAdd 
DateLSQAdd 


EQO 
SQO 


543 
$44 


YearMSDAdd 
YearLSDAdd 


EQO 
EQO 


$46 
$47 


KOurMSDAdd 
HourLSDAdd 


EQO 
EQO 


54C 
$4D 


MinMSDAdd 
MinLSDAdd 


EQO 
EQO 


54F 

$S0 


AmPraAdd 


EQU 


$S2 


/ SOTLEnterKey Equates 


DegFMSDR 


EQO 


$23 


DegFMSDW 


EQO 


$A3 


DegFDIR 
DegFDIW 
DegFLSDR 
DegPLSDW 


EQO 
EQO 
EQO 
EQO 


$24 
$A4 

$25 
$AS 



/Dallas RTC -read- memory addr for MSD of Oil ' 



/Dallas RTC -write* memory addr for MSD of Oil 
/ Temp Limit. 



i SOLEnterKey Equates 



OLifeMSOR EQO 
OLifeMSDW EQO 
0LifeD2R ..EQO: 
0LifeD2W EQO 
OLifeDIR <| EQO 
OLifeDlW "EQO 
OLif eLSDR •„ EQO 
OLifeLSDH ' EQO 
OLifeHoursR EQO 

OLifeHoursW EQO 

OLifeDateR EQO 
OLifeDateW EQO 
OLifeMonthR EQO 
OLifeMonthH EQO 
OLifeYearR EQO 
QLifeYearw EQO 



$27'<:> V /Dallas RTC "read" memory addr for MSD of Oil Life 



*i$A7. 
/$28 •■' 
&,$A8 
$29 
$A9 
$2A 
$AA 
$2B 

$AB 

$2C 
$AC 
$2d 
$Ad 



' / Dallas RTC "write* memory addr for MSD of Oil 
Life. 



/Dallas RTC "read- addr for MSD of RTC Hour value 
/ when Oil Life entered. 

/Dallas RTC "write- addr for MSD of RTC Hour value 
/ when Oil Life entered. 
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luaed to 



i svCfinterKay Equates 

VCtlbMSDK BQO $30 

VCalbMSDW EQO $B0 

VCftlbDlB EQO $31 

VCalbDIV BQO $B1 

VCalbLSDR SQO $32 

VCaliLSDW BQO $B2 



i Alarm Equates 

RedXJED BQO S 

YelLED BQO 4 

GreenLSD BQO 3 

LEDMasX BQO $C7 

RedYelLEQNask BQO $30 
GreeaLEDNask BQO $08 

OegP_tO_O0S BQO 140 



i Viscometer Status values^ (vis cStatus) 
i - ViscControl & 
i - Timer , * 

t - OilViscDisp ~j 
Startup ^ "equ ■ .& 
RdOK <£f 2!" ** u 

RdXnFrog 1 equ 
Timeout 

TempOutOfkng equ 
Purge InProg equ 
OilPurged equ 
RdOrder equ 
Purgeorder equ 



i Dallas RTC "read* memory addr tor MSO of 
t Viscosity Calibration value, 
j Dallas RTC ■write- memory addr for MSB of 
t ViscosityCalibration value. 
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ViscooetexTablo.inc ' 



VistTable: Macro 

KLZST ca 
Volt_l set 

Vblt~2 set 
Tetq?~2 set 
Voltjdif set 
TeaqpTdif set 
Volt~delta set 

MUST On 

DC.B (VoltJL • 2S6J/S000 

MUST off 
Loopcnt set 1 

IP Loopcnt < Tetqp_dif 
MUST On 

DC.B ((Volt_l - (I*x^t^ypU_delta> ) • 2S6)/5000 

MLtST of e 
ENDIF 

LoopCnt set Loopcnt ♦ t?V^ 



\X 
\2 
\3 
\4 

Volt_l - VOlt_2 
Temp_2 - Temp_l 
volt jdif /Temp _di£ 





*, LoopCnt < Teop^dif^ 
KLIST On " 

DC.B ((Volt_l -^(LoopCnt 

KLIST Off ~~ 
ENDIP j&i' 
LoopCnt set §. LoopCnt ♦ 1 
IP ..^^LoopCnt' < Tenp^dif 
. MUSTfc.On 

DC.B ~ ((Volt_l - (Loopcnt 

MUST off 
BNDIP 

LoopCnt set LoopCnt + 1 

IF LoopCnt < T«np_dif 
MUST on 

DC.B ( <Volt_l - (LOOpCnt 

MUST Off 
BNDIP 

LoopCnt set LoopCnt + 1 

IP LoopCnt < Temp_dif 
MUST On 

DC.B ( (Volt JL - (LOOpCnt 

MUST Off 
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• Volt.delta)) • 2S6)/5000 



Volt_delta)> * 25fi>/5000 



Volt_delte)) * 256)/5000 



1 Volt_delt&) ) • 2S€)/5000 
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BNDIP 

set LoopCnt ♦ 1 

IP LoopCnt < T«np_di£ 
MUST On 

DC.B ((Volt_l - (LoopCnt • Volt_delta)> • 25G)/S000 
MUST Off 
ENDIF 

•et LoopCnt ♦ I 

IP LoopCnt t Temp_dif 
MUST On 

DC.B <(Volt_i - (Loopcnt * volt_dolta)> * 23«>/sooo 
MUST Off 

sndip 

•et LoopCnt ♦ l v* - ^ 
IP LoopCnt < Tempjdif 
MUST on 

DC.B ((Volt.1 - (LOOpCttt • VoU_delta)r l V25«>/5000 

MUST Off ' ftjf " 

BNDIP A' 

set • LoopCnt ♦ I % $ 

IP LoopCnt < Tenp_difi v 
must on jk . 

DC.B ((Volt_l « (LoopCnt^* Volt_delta)> * 25«)/5000 
must off ^ & m * 4 y%s& 

ENDIF vf't ^ 

set LoopCnt** 1 . *- a v 

IP LoopCnt < Tempj&tt *> 
MUST On V** 

DC.B ((Volt 1 - (LoopCnt * Volt_deltaU • 25fi>/5000 

MUST j&tt%^ 

***** |l S* ' 

setV ■^LoopCnt ♦ l 

IP' |{ LoopCnt < Temp_dif 

* MUST- On 

DC.B ((Volt_l - (LoopCnt * Volt_delta)) * 256)/5000 
*i<.. MLIST Off 
ENDIF 

LoopCnt set LoopCnt ♦ 1 

IP LoopCnt < Tetnp_dif 
MUST On 

DC.B <(Volt_l - (LoopCnt ♦ Volt_delta)) * 256)/5000 

MUST Off 
BNDIP 

LoopCnt set LoopCnt + 1 

IF LoopCnt < Tetnp_dlf 
MUST On 

DC.B ((Volt_l - (LoopCnt • Volt_delta)> • 256)/5000 
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LoopCnt 



LoopCnt 



LoopCnt 



LoopCnt 



LoopCnt 
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MUST Of! 
ENDIF 

LoopCnt set LoopCnt + 1 

IF LoopCnt < Tenp_dif 
MLIST On 

DC.B {(Volt_l - (Loopcnt • Volt_delta>) • 25O/5000 
MLIST Off 
ENDIF 

LoopCnt set LoopCnt ♦ 1 

IF LoopCnt < Terop_dif 
MLIST On 

DC.B ((volt_l - (LoopCnt * Volt_ctelta) ) • 256)/5000 
MUST Off 

ENDIF V . ). ! 

LoopCnt set LoopCnt ♦ 1 - : U 

IF LoopCnt < Tetnp_dif •■s« , *-i a * ■» ' 

MUST On ..(-*-%■ 
DC.B ((Volt_l - (LoopCnt • Volt_delta) ) * 256)/5000 
MUST Off "' 

ENDIF 

LoopCnt set LoopCnt +1 ^ 

IP LoopCnt < Temp_dif * 

MUST On " 

DC.B ((Volt_l - (LoopCnt * -Volt_delta) ) • 256)/5000 

MUST Off fA; *t'.. 

ENDIF • :• 

LoopCnt set LoopCnt + 1^/' 

IF LoopCnt _< .Tenp_dif 

MUST On ~ -< * ~ 

DC.B ((Volt£l - (LoopCnt • Volt_delta>> * 25S>/5000 

MLIST '..Off v 
EUDIP - '"f ■? 
LoopCnt aet LoopCnt ♦ 1 

IP LoopCnt < Temp_dif 

MUST On 

DC.B ((Volt_l - (LoopCnt * Volt_delta)) * 256)/5000 
MUST Off 
ENDIF 

LoopCnt set LoopCnt ♦ I 

IP LoopCnt < Tenp_dif 
MUST On 

DC.B ((Volt_l - (LoopCnt • Volt_delta)) * 256)/5000 

MUST Off 
ENDIF 

LoopCnt set LoopCnt ♦ 1 

IF LoopCnt < Teop_dif 
MLIST on 
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DcTb^ ((Volt_l - (LoopCnt * Volt_deIta)) * 256J/5000 

MUST off 



LoopCnt 



LoopCnt 



LoopCnt 



ENDIF 

set LoopCnt + 1 

IF LoopCnt < Tenip_di t 
MUST On 

DC.B (<Volt_l - (LoopCnt • Volt_delta)J * 25fi)/5000 

MLIST off 
ENDIF 

set LoopCnt + 1 

IF LoopCnt < Tempdif 
MUST On 

DC.B ((Volt_l - (LoopCnt • Volt_delta)) • 256>/5000 

MUST Off ^ 

ENDIF 

set LoopCnt +1 

IF LoopCnt < Temp_dif '**''.■ 
MUST on 

DC.B ((Volt_l - (LoopCnt • Volt_deita>) * 2S6)/5000 

MLIST off 
ENDIF 

set LoopCnt 4 1 

IF LoopCnt « Temp_di£ . v 

MUST on 

DC.B ((Volt_I - (LoopCnt * Volt_deltaJ) • 2S6J/5000 

MUST Off 
ENDIF 

set LoopCnt + 1 

IF LoopCnt' < Tempjlif 

MUST .ten " 

DC.B g ((Volt_l - (LoopCnt • Volt_deIta>) * 2S6)/S000 

MUST f Vbf 0 
ENDIF S%" 

eet-= v LoopCnt ♦ l 
IF , LoopCnt < Ten?)_dif 

MLIST On 

DC.B UVolt_l - (LoopCnt * Volt_delta)) * 256>/5000 
MUST Off 



LoopCnt 



set LoopCnt + 1 

IF LoopCnt < Temp_di f 
MUST On 

DC.B ((Volt_l - (LoopCnt • Volt_delta>) * 256)/5000 
MUST Off 
ENDIF 

SadM 
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